Hệ thống quản lý bán hàng và hàng tồn kho trong c#

36.942 lượt xem;
  • SIS_DBDataSet1.Designer.vb
  • project /
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.42000
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20  Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21  Global.System.ComponentModel.ToolboxItem(true), _
22  Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23  Global.System.Xml.Serialization.XmlRootAttribute("SIS_DBDataSet1"), _
24  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class SIS_DBDataSet1
26     Inherits Global.System.Data.DataSet
27     
28     Private tableActivation As ActivationDataTable
29     
30     Private tableCategory As CategoryDataTable
31     
32     Private tableCompany As CompanyDataTable
33     
34     Private tableCompany_Contacts As Company_ContactsDataTable
35     
36     Private tableCustomer As CustomerDataTable
37     
38     Private tableInvoice_Payment As Invoice_PaymentDataTable
39     
40     Private tableInvoice_Product As Invoice_ProductDataTable
41     
42     Private tableInvoice1_Payment As Invoice1_PaymentDataTable
43     
44     Private tableInvoice1_Product As Invoice1_ProductDataTable
45     
46     Private tableInvoiceInfo As InvoiceInfoDataTable
47     
48     Private tableInvoiceInfo1 As InvoiceInfo1DataTable
49     
50     Private tableLogs As LogsDataTable
51     
52     Private tableProduct As ProductDataTable
53     
54     Private tableProduct_Join As Product_JoinDataTable
55     
56     Private tableQuotation As QuotationDataTable
57     
58     Private tableQuotation_Join As Quotation_JoinDataTable
59     
60     Private tableRegistration As RegistrationDataTable
61     
62     Private tableService As ServiceDataTable
63     
64     Private tableStock As StockDataTable
65     
66     Private tableStock_Product As Stock_ProductDataTable
67     
68     Private tableSubCategory As SubCategoryDataTable
69     
70     Private tableSupplier As SupplierDataTable
71     
72     Private tableTemp_Stock As Temp_StockDataTable
73     
74     Private relationFK_Invoice_Payment_InvoiceInfo As Global.System.Data.DataRelation
75     
76     Private relationFK_Invoice_Product_InvoiceInfo As Global.System.Data.DataRelation
77     
78     Private relationFK_Invoice_Product_Product As Global.System.Data.DataRelation
79     
80     Private relationFK_Invoice1_Payment_InvoiceInfo1 As Global.System.Data.DataRelation
81     
82     Private relationFK_Invoice1_Product_InvoiceInfo1 As Global.System.Data.DataRelation
83     
84     Private relationFK_Invoice1_Product_Product As Global.System.Data.DataRelation
85     
86     Private relationFK_InvoiceInfo_Customer As Global.System.Data.DataRelation
87     
88     Private relationFK_InvoiceInfo1_Service As Global.System.Data.DataRelation
89     
90     Private relationFK_Logs_Registration As Global.System.Data.DataRelation
91     
92     Private relationFK_Product_SubCategory As Global.System.Data.DataRelation
93     
94     Private relationFK_Product_Join_Product As Global.System.Data.DataRelation
95     
96     Private relationFK_Quotation_Customer As Global.System.Data.DataRelation
97     
98     Private relationFK_Quotation_Join_Product As Global.System.Data.DataRelation
99     
100     Private relationFK_Quotation_Join_Quotation As Global.System.Data.DataRelation
101     
102     Private relationFK_Service_Customer As Global.System.Data.DataRelation
103     
104     Private relationFK_Stock_Supplier As Global.System.Data.DataRelation
105     
106     Private relationFK_Stock_Product_Product As Global.System.Data.DataRelation
107     
108     Private relationFK_Stock_Product_Stock As Global.System.Data.DataRelation
109     
110     Private relationFK_SubCategory_Category As Global.System.Data.DataRelation
111     
112     Private relationFK_Temp_Stock_Product As Global.System.Data.DataRelation
113     
114     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
115     
116     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
117      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
118     Public Sub New()
119         MyBase.New
120         Me.BeginInit
121         Me.InitClass
122         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
123         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
124         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
125         Me.EndInit
126     End Sub
127     
128     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
129      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
130     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
131         MyBase.New(info, context, false)
132         If (Me.IsBinarySerialized(info, context) = true) Then
133             Me.InitVars(false)
134             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
135             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
136             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
137             Return
138         End If
139         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
140         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
141             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
142             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
143             If (Not (ds.Tables("Activation")) Is Nothing) Then
144                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
145             End If
146             If (Not (ds.Tables("Category")) Is Nothing) Then
147                 MyBase.Tables.Add(New CategoryDataTable(ds.Tables("Category")))
148             End If
149             If (Not (ds.Tables("Company")) Is Nothing) Then
150                 MyBase.Tables.Add(New CompanyDataTable(ds.Tables("Company")))
151             End If
152             If (Not (ds.Tables("Company_Contacts")) Is Nothing) Then
153                 MyBase.Tables.Add(New Company_ContactsDataTable(ds.Tables("Company_Contacts")))
154             End If
155             If (Not (ds.Tables("Customer")) Is Nothing) Then
156                 MyBase.Tables.Add(New CustomerDataTable(ds.Tables("Customer")))
157             End If
158             If (Not (ds.Tables("Invoice_Payment")) Is Nothing) Then
159                 MyBase.Tables.Add(New Invoice_PaymentDataTable(ds.Tables("Invoice_Payment")))
160             End If
161             If (Not (ds.Tables("Invoice_Product")) Is Nothing) Then
162                 MyBase.Tables.Add(New Invoice_ProductDataTable(ds.Tables("Invoice_Product")))
163             End If
164             If (Not (ds.Tables("Invoice1_Payment")) Is Nothing) Then
165                 MyBase.Tables.Add(New Invoice1_PaymentDataTable(ds.Tables("Invoice1_Payment")))
166             End If
167             If (Not (ds.Tables("Invoice1_Product")) Is Nothing) Then
168                 MyBase.Tables.Add(New Invoice1_ProductDataTable(ds.Tables("Invoice1_Product")))
169             End If
170             If (Not (ds.Tables("InvoiceInfo")) Is Nothing) Then
171                 MyBase.Tables.Add(New InvoiceInfoDataTable(ds.Tables("InvoiceInfo")))
172             End If
173             If (Not (ds.Tables("InvoiceInfo1")) Is Nothing) Then
174                 MyBase.Tables.Add(New InvoiceInfo1DataTable(ds.Tables("InvoiceInfo1")))
175             End If
176             If (Not (ds.Tables("Logs")) Is Nothing) Then
177                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
178             End If
179             If (Not (ds.Tables("Product")) Is Nothing) Then
180                 MyBase.Tables.Add(New ProductDataTable(ds.Tables("Product")))
181             End If
182             If (Not (ds.Tables("Product_Join")) Is Nothing) Then
183                 MyBase.Tables.Add(New Product_JoinDataTable(ds.Tables("Product_Join")))
184             End If
185             If (Not (ds.Tables("Quotation")) Is Nothing) Then
186                 MyBase.Tables.Add(New QuotationDataTable(ds.Tables("Quotation")))
187             End If
188             If (Not (ds.Tables("Quotation_Join")) Is Nothing) Then
189                 MyBase.Tables.Add(New Quotation_JoinDataTable(ds.Tables("Quotation_Join")))
190             End If
191             If (Not (ds.Tables("Registration")) Is Nothing) Then
192                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
193             End If
194             If (Not (ds.Tables("Service")) Is Nothing) Then
195                 MyBase.Tables.Add(New ServiceDataTable(ds.Tables("Service")))
196             End If
197             If (Not (ds.Tables("Stock")) Is Nothing) Then
198                 MyBase.Tables.Add(New StockDataTable(ds.Tables("Stock")))
199             End If
200             If (Not (ds.Tables("Stock_Product")) Is Nothing) Then
201                 MyBase.Tables.Add(New Stock_ProductDataTable(ds.Tables("Stock_Product")))
202             End If
203             If (Not (ds.Tables("SubCategory")) Is Nothing) Then
204                 MyBase.Tables.Add(New SubCategoryDataTable(ds.Tables("SubCategory")))
205             End If
206             If (Not (ds.Tables("Supplier")) Is Nothing) Then
207                 MyBase.Tables.Add(New SupplierDataTable(ds.Tables("Supplier")))
208             End If
209             If (Not (ds.Tables("Temp_Stock")) Is Nothing) Then
210                 MyBase.Tables.Add(New Temp_StockDataTable(ds.Tables("Temp_Stock")))
211             End If
212             Me.DataSetName = ds.DataSetName
213             Me.Prefix = ds.Prefix
214             Me.Namespace = ds.Namespace
215             Me.Locale = ds.Locale
216             Me.CaseSensitive = ds.CaseSensitive
217             Me.EnforceConstraints = ds.EnforceConstraints
218             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
219             Me.InitVars
220         Else
221             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
222         End If
223         Me.GetSerializationData(info, context)
224         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
225         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
226         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
227     End Sub
228     
229     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
230      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
231      Global.System.ComponentModel.Browsable(false), _
232      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
233     Public ReadOnly Property Activation() As ActivationDataTable
234         Get
235             Return Me.tableActivation
236         End Get
237     End Property
238     
239     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
240      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
241      Global.System.ComponentModel.Browsable(false), _
242      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
243     Public ReadOnly Property Category() As CategoryDataTable
244         Get
245             Return Me.tableCategory
246         End Get
247     End Property
248     
249     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
250      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
251      Global.System.ComponentModel.Browsable(false), _
252      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
253     Public ReadOnly Property Company() As CompanyDataTable
254         Get
255             Return Me.tableCompany
256         End Get
257     End Property
258     
259     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
260      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
261      Global.System.ComponentModel.Browsable(false), _
262      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
263     Public ReadOnly Property Company_Contacts() As Company_ContactsDataTable
264         Get
265             Return Me.tableCompany_Contacts
266         End Get
267     End Property
268     
269     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
270      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
271      Global.System.ComponentModel.Browsable(false), _
272      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
273     Public ReadOnly Property Customer() As CustomerDataTable
274         Get
275             Return Me.tableCustomer
276         End Get
277     End Property
278     
279     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
280      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
281      Global.System.ComponentModel.Browsable(false), _
282      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
283     Public ReadOnly Property Invoice_Payment() As Invoice_PaymentDataTable
284         Get
285             Return Me.tableInvoice_Payment
286         End Get
287     End Property
288     
289     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
290      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
291      Global.System.ComponentModel.Browsable(false), _
292      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
293     Public ReadOnly Property Invoice_Product() As Invoice_ProductDataTable
294         Get
295             Return Me.tableInvoice_Product
296         End Get
297     End Property
298     
299     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
300      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
301      Global.System.ComponentModel.Browsable(false), _
302      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
303     Public ReadOnly Property Invoice1_Payment() As Invoice1_PaymentDataTable
304         Get
305             Return Me.tableInvoice1_Payment
306         End Get
307     End Property
308     
309     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
310      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
311      Global.System.ComponentModel.Browsable(false), _
312      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
313     Public ReadOnly Property Invoice1_Product() As Invoice1_ProductDataTable
314         Get
315             Return Me.tableInvoice1_Product
316         End Get
317     End Property
318     
319     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
320      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
321      Global.System.ComponentModel.Browsable(false), _
322      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
323     Public ReadOnly Property InvoiceInfo() As InvoiceInfoDataTable
324         Get
325             Return Me.tableInvoiceInfo
326         End Get
327     End Property
328     
329     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
330      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
331      Global.System.ComponentModel.Browsable(false), _
332      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
333     Public ReadOnly Property InvoiceInfo1() As InvoiceInfo1DataTable
334         Get
335             Return Me.tableInvoiceInfo1
336         End Get
337     End Property
338     
339     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
340      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
341      Global.System.ComponentModel.Browsable(false), _
342      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
343     Public ReadOnly Property Logs() As LogsDataTable
344         Get
345             Return Me.tableLogs
346         End Get
347     End Property
348     
349     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
350      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
351      Global.System.ComponentModel.Browsable(false), _
352      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
353     Public ReadOnly Property Product() As ProductDataTable
354         Get
355             Return Me.tableProduct
356         End Get
357     End Property
358     
359     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
360      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
361      Global.System.ComponentModel.Browsable(false), _
362      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
363     Public ReadOnly Property Product_Join() As Product_JoinDataTable
364         Get
365             Return Me.tableProduct_Join
366         End Get
367     End Property
368     
369     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
370      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
371      Global.System.ComponentModel.Browsable(false), _
372      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
373     Public ReadOnly Property Quotation() As QuotationDataTable
374         Get
375             Return Me.tableQuotation
376         End Get
377     End Property
378     
379     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
380      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
381      Global.System.ComponentModel.Browsable(false), _
382      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
383     Public ReadOnly Property Quotation_Join() As Quotation_JoinDataTable
384         Get
385             Return Me.tableQuotation_Join
386         End Get
387     End Property
388     
389     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
390      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
391      Global.System.ComponentModel.Browsable(false), _
392      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
393     Public ReadOnly Property Registration() As RegistrationDataTable
394         Get
395             Return Me.tableRegistration
396         End Get
397     End Property
398     
399     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
400      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
401      Global.System.ComponentModel.Browsable(false), _
402      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
403     Public ReadOnly Property Service() As ServiceDataTable
404         Get
405             Return Me.tableService
406         End Get
407     End Property
408     
409     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
410      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
411      Global.System.ComponentModel.Browsable(false), _
412      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
413     Public ReadOnly Property Stock() As StockDataTable
414         Get
415             Return Me.tableStock
416         End Get
417     End Property
418     
419     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
420      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
421      Global.System.ComponentModel.Browsable(false), _
422      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
423     Public ReadOnly Property Stock_Product() As Stock_ProductDataTable
424         Get
425             Return Me.tableStock_Product
426         End Get
427     End Property
428     
429     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
430      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
431      Global.System.ComponentModel.Browsable(false), _
432      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
433     Public ReadOnly Property SubCategory() As SubCategoryDataTable
434         Get
435             Return Me.tableSubCategory
436         End Get
437     End Property
438     
439     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
440      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
441      Global.System.ComponentModel.Browsable(false), _
442      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
443     Public ReadOnly Property Supplier() As SupplierDataTable
444         Get
445             Return Me.tableSupplier
446         End Get
447     End Property
448     
449     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
450      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
451      Global.System.ComponentModel.Browsable(false), _
452      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
453     Public ReadOnly Property Temp_Stock() As Temp_StockDataTable
454         Get
455             Return Me.tableTemp_Stock
456         End Get
457     End Property
458     
459     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
460      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
461      Global.System.ComponentModel.BrowsableAttribute(true), _
462      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
463     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
464         Get
465             Return Me._schemaSerializationMode
466         End Get
467         Set
468             Me._schemaSerializationMode = value
469         End Set
470     End Property
471     
472     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
473      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
474      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
475     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
476         Get
477             Return MyBase.Tables
478         End Get
479     End Property
480     
481     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
482      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
483      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
484     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
485         Get
486             Return MyBase.Relations
487         End Get
488     End Property
489     
490     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
491      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
492     Protected Overrides Sub InitializeDerivedDataSet()
493         Me.BeginInit
494         Me.InitClass
495         Me.EndInit
496     End Sub
497     
498     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
499      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
500     Public Overrides Function Clone() As Global.System.Data.DataSet
501         Dim cln As SIS_DBDataSet1 = CType(MyBase.Clone,SIS_DBDataSet1)
502         cln.InitVars
503         cln.SchemaSerializationMode = Me.SchemaSerializationMode
504         Return cln
505     End Function
506     
507     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
508      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
509     Protected Overrides Function ShouldSerializeTables() As Boolean
510         Return false
511     End Function
512     
513     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
514      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
515     Protected Overrides Function ShouldSerializeRelations() As Boolean
516         Return false
517     End Function
518     
519     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
520      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
521     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
522         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
523             Me.Reset
524             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
525             ds.ReadXml(reader)
526             If (Not (ds.Tables("Activation")) Is Nothing) Then
527                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
528             End If
529             If (Not (ds.Tables("Category")) Is Nothing) Then
530                 MyBase.Tables.Add(New CategoryDataTable(ds.Tables("Category")))
531             End If
532             If (Not (ds.Tables("Company")) Is Nothing) Then
533                 MyBase.Tables.Add(New CompanyDataTable(ds.Tables("Company")))
534             End If
535             If (Not (ds.Tables("Company_Contacts")) Is Nothing) Then
536                 MyBase.Tables.Add(New Company_ContactsDataTable(ds.Tables("Company_Contacts")))
537             End If
538             If (Not (ds.Tables("Customer")) Is Nothing) Then
539                 MyBase.Tables.Add(New CustomerDataTable(ds.Tables("Customer")))
540             End If
541             If (Not (ds.Tables("Invoice_Payment")) Is Nothing) Then
542                 MyBase.Tables.Add(New Invoice_PaymentDataTable(ds.Tables("Invoice_Payment")))
543             End If
544             If (Not (ds.Tables("Invoice_Product")) Is Nothing) Then
545                 MyBase.Tables.Add(New Invoice_ProductDataTable(ds.Tables("Invoice_Product")))
546             End If
547             If (Not (ds.Tables("Invoice1_Payment")) Is Nothing) Then
548                 MyBase.Tables.Add(New Invoice1_PaymentDataTable(ds.Tables("Invoice1_Payment")))
549             End If
550             If (Not (ds.Tables("Invoice1_Product")) Is Nothing) Then
551                 MyBase.Tables.Add(New Invoice1_ProductDataTable(ds.Tables("Invoice1_Product")))
552             End If
553             If (Not (ds.Tables("InvoiceInfo")) Is Nothing) Then
554                 MyBase.Tables.Add(New InvoiceInfoDataTable(ds.Tables("InvoiceInfo")))
555             End If
556             If (Not (ds.Tables("InvoiceInfo1")) Is Nothing) Then
557                 MyBase.Tables.Add(New InvoiceInfo1DataTable(ds.Tables("InvoiceInfo1")))
558             End If
559             If (Not (ds.Tables("Logs")) Is Nothing) Then
560                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
561             End If
562             If (Not (ds.Tables("Product")) Is Nothing) Then
563                 MyBase.Tables.Add(New ProductDataTable(ds.Tables("Product")))
564             End If
565             If (Not (ds.Tables("Product_Join")) Is Nothing) Then
566                 MyBase.Tables.Add(New Product_JoinDataTable(ds.Tables("Product_Join")))
567             End If
568             If (Not (ds.Tables("Quotation")) Is Nothing) Then
569                 MyBase.Tables.Add(New QuotationDataTable(ds.Tables("Quotation")))
570             End If
571             If (Not (ds.Tables("Quotation_Join")) Is Nothing) Then
572                 MyBase.Tables.Add(New Quotation_JoinDataTable(ds.Tables("Quotation_Join")))
573             End If
574             If (Not (ds.Tables("Registration")) Is Nothing) Then
575                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
576             End If
577             If (Not (ds.Tables("Service")) Is Nothing) Then
578                 MyBase.Tables.Add(New ServiceDataTable(ds.Tables("Service")))
579             End If
580             If (Not (ds.Tables("Stock")) Is Nothing) Then
581                 MyBase.Tables.Add(New StockDataTable(ds.Tables("Stock")))
582             End If
583             If (Not (ds.Tables("Stock_Product")) Is Nothing) Then
584                 MyBase.Tables.Add(New Stock_ProductDataTable(ds.Tables("Stock_Product")))
585             End If
586             If (Not (ds.Tables("SubCategory")) Is Nothing) Then
587                 MyBase.Tables.Add(New SubCategoryDataTable(ds.Tables("SubCategory")))
588             End If
589             If (Not (ds.Tables("Supplier")) Is Nothing) Then
590                 MyBase.Tables.Add(New SupplierDataTable(ds.Tables("Supplier")))
591             End If
592             If (Not (ds.Tables("Temp_Stock")) Is Nothing) Then
593                 MyBase.Tables.Add(New Temp_StockDataTable(ds.Tables("Temp_Stock")))
594             End If
595             Me.DataSetName = ds.DataSetName
596             Me.Prefix = ds.Prefix
597             Me.Namespace = ds.Namespace
598             Me.Locale = ds.Locale
599             Me.CaseSensitive = ds.CaseSensitive
600             Me.EnforceConstraints = ds.EnforceConstraints
601             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
602             Me.InitVars
603         Else
604             Me.ReadXml(reader)
605             Me.InitVars
606         End If
607     End Sub
608     
609     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
610      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
611     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
612         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
613         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
614         stream.Position = 0
615         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
616     End Function
617     
618     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
619      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
620     Friend Overloads Sub InitVars()
621         Me.InitVars(true)
622     End Sub
623     
624     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
625      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
626     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
627         Me.tableActivation = CType(MyBase.Tables("Activation"),ActivationDataTable)
628         If (initTable = true) Then
629             If (Not (Me.tableActivation) Is Nothing) Then
630                 Me.tableActivation.InitVars
631             End If
632         End If
633         Me.tableCategory = CType(MyBase.Tables("Category"),CategoryDataTable)
634         If (initTable = true) Then
635             If (Not (Me.tableCategory) Is Nothing) Then
636                 Me.tableCategory.InitVars
637             End If
638         End If
639         Me.tableCompany = CType(MyBase.Tables("Company"),CompanyDataTable)
640         If (initTable = true) Then
641             If (Not (Me.tableCompany) Is Nothing) Then
642                 Me.tableCompany.InitVars
643             End If
644         End If
645         Me.tableCompany_Contacts = CType(MyBase.Tables("Company_Contacts"),Company_ContactsDataTable)
646         If (initTable = true) Then
647             If (Not (Me.tableCompany_Contacts) Is Nothing) Then
648                 Me.tableCompany_Contacts.InitVars
649             End If
650         End If
651         Me.tableCustomer = CType(MyBase.Tables("Customer"),CustomerDataTable)
652         If (initTable = true) Then
653             If (Not (Me.tableCustomer) Is Nothing) Then
654                 Me.tableCustomer.InitVars
655             End If
656         End If
657         Me.tableInvoice_Payment = CType(MyBase.Tables("Invoice_Payment"),Invoice_PaymentDataTable)
658         If (initTable = true) Then
659             If (Not (Me.tableInvoice_Payment) Is Nothing) Then
660                 Me.tableInvoice_Payment.InitVars
661             End If
662         End If
663         Me.tableInvoice_Product = CType(MyBase.Tables("Invoice_Product"),Invoice_ProductDataTable)
664         If (initTable = true) Then
665             If (Not (Me.tableInvoice_Product) Is Nothing) Then
666                 Me.tableInvoice_Product.InitVars
667             End If
668         End If
669         Me.tableInvoice1_Payment = CType(MyBase.Tables("Invoice1_Payment"),Invoice1_PaymentDataTable)
670         If (initTable = true) Then
671             If (Not (Me.tableInvoice1_Payment) Is Nothing) Then
672                 Me.tableInvoice1_Payment.InitVars
673             End If
674         End If
675         Me.tableInvoice1_Product = CType(MyBase.Tables("Invoice1_Product"),Invoice1_ProductDataTable)
676         If (initTable = true) Then
677             If (Not (Me.tableInvoice1_Product) Is Nothing) Then
678                 Me.tableInvoice1_Product.InitVars
679             End If
680         End If
681         Me.tableInvoiceInfo = CType(MyBase.Tables("InvoiceInfo"),InvoiceInfoDataTable)
682         If (initTable = true) Then
683             If (Not (Me.tableInvoiceInfo) Is Nothing) Then
684                 Me.tableInvoiceInfo.InitVars
685             End If
686         End If
687         Me.tableInvoiceInfo1 = CType(MyBase.Tables("InvoiceInfo1"),InvoiceInfo1DataTable)
688         If (initTable = true) Then
689             If (Not (Me.tableInvoiceInfo1) Is Nothing) Then
690                 Me.tableInvoiceInfo1.InitVars
691             End If
692         End If
693         Me.tableLogs = CType(MyBase.Tables("Logs"),LogsDataTable)
694         If (initTable = true) Then
695             If (Not (Me.tableLogs) Is Nothing) Then
696                 Me.tableLogs.InitVars
697             End If
698         End If
699         Me.tableProduct = CType(MyBase.Tables("Product"),ProductDataTable)
700         If (initTable = true) Then
701             If (Not (Me.tableProduct) Is Nothing) Then
702                 Me.tableProduct.InitVars
703             End If
704         End If
705         Me.tableProduct_Join = CType(MyBase.Tables("Product_Join"),Product_JoinDataTable)
706         If (initTable = true) Then
707             If (Not (Me.tableProduct_Join) Is Nothing) Then
708                 Me.tableProduct_Join.InitVars
709             End If
710         End If
711         Me.tableQuotation = CType(MyBase.Tables("Quotation"),QuotationDataTable)
712         If (initTable = true) Then
713             If (Not (Me.tableQuotation) Is Nothing) Then
714                 Me.tableQuotation.InitVars
715             End If
716         End If
717         Me.tableQuotation_Join = CType(MyBase.Tables("Quotation_Join"),Quotation_JoinDataTable)
718         If (initTable = true) Then
719             If (Not (Me.tableQuotation_Join) Is Nothing) Then
720                 Me.tableQuotation_Join.InitVars
721             End If
722         End If
723         Me.tableRegistration = CType(MyBase.Tables("Registration"),RegistrationDataTable)
724         If (initTable = true) Then
725             If (Not (Me.tableRegistration) Is Nothing) Then
726                 Me.tableRegistration.InitVars
727             End If
728         End If
729         Me.tableService = CType(MyBase.Tables("Service"),ServiceDataTable)
730         If (initTable = true) Then
731             If (Not (Me.tableService) Is Nothing) Then
732                 Me.tableService.InitVars
733             End If
734         End If
735         Me.tableStock = CType(MyBase.Tables("Stock"),StockDataTable)
736         If (initTable = true) Then
737             If (Not (Me.tableStock) Is Nothing) Then
738                 Me.tableStock.InitVars
739             End If
740         End If
741         Me.tableStock_Product = CType(MyBase.Tables("Stock_Product"),Stock_ProductDataTable)
742         If (initTable = true) Then
743             If (Not (Me.tableStock_Product) Is Nothing) Then
744                 Me.tableStock_Product.InitVars
745             End If
746         End If
747         Me.tableSubCategory = CType(MyBase.Tables("SubCategory"),SubCategoryDataTable)
748         If (initTable = true) Then
749             If (Not (Me.tableSubCategory) Is Nothing) Then
750                 Me.tableSubCategory.InitVars
751             End If
752         End If
753         Me.tableSupplier = CType(MyBase.Tables("Supplier"),SupplierDataTable)
754         If (initTable = true) Then
755             If (Not (Me.tableSupplier) Is Nothing) Then
756                 Me.tableSupplier.InitVars
757             End If
758         End If
759         Me.tableTemp_Stock = CType(MyBase.Tables("Temp_Stock"),Temp_StockDataTable)
760         If (initTable = true) Then
761             If (Not (Me.tableTemp_Stock) Is Nothing) Then
762                 Me.tableTemp_Stock.InitVars
763             End If
764         End If
765         Me.relationFK_Invoice_Payment_InvoiceInfo = Me.Relations("FK_Invoice_Payment_InvoiceInfo")
766         Me.relationFK_Invoice_Product_InvoiceInfo = Me.Relations("FK_Invoice_Product_InvoiceInfo")
767         Me.relationFK_Invoice_Product_Product = Me.Relations("FK_Invoice_Product_Product")
768         Me.relationFK_Invoice1_Payment_InvoiceInfo1 = Me.Relations("FK_Invoice1_Payment_InvoiceInfo1")
769         Me.relationFK_Invoice1_Product_InvoiceInfo1 = Me.Relations("FK_Invoice1_Product_InvoiceInfo1")
770         Me.relationFK_Invoice1_Product_Product = Me.Relations("FK_Invoice1_Product_Product")
771         Me.relationFK_InvoiceInfo_Customer = Me.Relations("FK_InvoiceInfo_Customer")
772         Me.relationFK_InvoiceInfo1_Service = Me.Relations("FK_InvoiceInfo1_Service")
773         Me.relationFK_Logs_Registration = Me.Relations("FK_Logs_Registration")
774         Me.relationFK_Product_SubCategory = Me.Relations("FK_Product_SubCategory")
775         Me.relationFK_Product_Join_Product = Me.Relations("FK_Product_Join_Product")
776         Me.relationFK_Quotation_Customer = Me.Relations("FK_Quotation_Customer")
777         Me.relationFK_Quotation_Join_Product = Me.Relations("FK_Quotation_Join_Product")
778         Me.relationFK_Quotation_Join_Quotation = Me.Relations("FK_Quotation_Join_Quotation")
779         Me.relationFK_Service_Customer = Me.Relations("FK_Service_Customer")
780         Me.relationFK_Stock_Supplier = Me.Relations("FK_Stock_Supplier")
781         Me.relationFK_Stock_Product_Product = Me.Relations("FK_Stock_Product_Product")
782         Me.relationFK_Stock_Product_Stock = Me.Relations("FK_Stock_Product_Stock")
783         Me.relationFK_SubCategory_Category = Me.Relations("FK_SubCategory_Category")
784         Me.relationFK_Temp_Stock_Product = Me.Relations("FK_Temp_Stock_Product")
785     End Sub
786     
787     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
788      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
789     Private Sub InitClass()
790         Me.DataSetName = "SIS_DBDataSet1"
791         Me.Prefix = ""
792         Me.Namespace = "http://tempuri.org/SIS_DBDataSet1.xsd"
793         Me.EnforceConstraints = true
794         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
795         Me.tableActivation = New ActivationDataTable()
796         MyBase.Tables.Add(Me.tableActivation)
797         Me.tableCategory = New CategoryDataTable()
798         MyBase.Tables.Add(Me.tableCategory)
799         Me.tableCompany = New CompanyDataTable()
800         MyBase.Tables.Add(Me.tableCompany)
801         Me.tableCompany_Contacts = New Company_ContactsDataTable()
802         MyBase.Tables.Add(Me.tableCompany_Contacts)
803         Me.tableCustomer = New CustomerDataTable()
804         MyBase.Tables.Add(Me.tableCustomer)
805         Me.tableInvoice_Payment = New Invoice_PaymentDataTable()
806         MyBase.Tables.Add(Me.tableInvoice_Payment)
807         Me.tableInvoice_Product = New Invoice_ProductDataTable()
808         MyBase.Tables.Add(Me.tableInvoice_Product)
809         Me.tableInvoice1_Payment = New Invoice1_PaymentDataTable()
810         MyBase.Tables.Add(Me.tableInvoice1_Payment)
811         Me.tableInvoice1_Product = New Invoice1_ProductDataTable()
812         MyBase.Tables.Add(Me.tableInvoice1_Product)
813         Me.tableInvoiceInfo = New InvoiceInfoDataTable()
814         MyBase.Tables.Add(Me.tableInvoiceInfo)
815         Me.tableInvoiceInfo1 = New InvoiceInfo1DataTable()
816         MyBase.Tables.Add(Me.tableInvoiceInfo1)
817         Me.tableLogs = New LogsDataTable()
818         MyBase.Tables.Add(Me.tableLogs)
819         Me.tableProduct = New ProductDataTable()
820         MyBase.Tables.Add(Me.tableProduct)
821         Me.tableProduct_Join = New Product_JoinDataTable()
822         MyBase.Tables.Add(Me.tableProduct_Join)
823         Me.tableQuotation = New QuotationDataTable()
824         MyBase.Tables.Add(Me.tableQuotation)
825         Me.tableQuotation_Join = New Quotation_JoinDataTable()
826         MyBase.Tables.Add(Me.tableQuotation_Join)
827         Me.tableRegistration = New RegistrationDataTable()
828         MyBase.Tables.Add(Me.tableRegistration)
829         Me.tableService = New ServiceDataTable()
830         MyBase.Tables.Add(Me.tableService)
831         Me.tableStock = New StockDataTable()
832         MyBase.Tables.Add(Me.tableStock)
833         Me.tableStock_Product = New Stock_ProductDataTable()
834         MyBase.Tables.Add(Me.tableStock_Product)
835         Me.tableSubCategory = New SubCategoryDataTable()
836         MyBase.Tables.Add(Me.tableSubCategory)
837         Me.tableSupplier = New SupplierDataTable()
838         MyBase.Tables.Add(Me.tableSupplier)
839         Me.tableTemp_Stock = New Temp_StockDataTable()
840         MyBase.Tables.Add(Me.tableTemp_Stock)
841         Me.relationFK_Invoice_Payment_InvoiceInfo = New Global.System.Data.DataRelation("FK_Invoice_Payment_InvoiceInfo", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Payment.InvoiceIDColumn}, false)
842         Me.Relations.Add(Me.relationFK_Invoice_Payment_InvoiceInfo)
843         Me.relationFK_Invoice_Product_InvoiceInfo = New Global.System.Data.DataRelation("FK_Invoice_Product_InvoiceInfo", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Product.InvoiceIDColumn}, false)
844         Me.Relations.Add(Me.relationFK_Invoice_Product_InvoiceInfo)
845         Me.relationFK_Invoice_Product_Product = New Global.System.Data.DataRelation("FK_Invoice_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Product.ProductIDColumn}, false)
846         Me.Relations.Add(Me.relationFK_Invoice_Product_Product)
847         Me.relationFK_Invoice1_Payment_InvoiceInfo1 = New Global.System.Data.DataRelation("FK_Invoice1_Payment_InvoiceInfo1", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo1.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice1_Payment.InvoiceIDColumn}, false)
848         Me.Relations.Add(Me.relationFK_Invoice1_Payment_InvoiceInfo1)
849         Me.relationFK_Invoice1_Product_InvoiceInfo1 = New Global.System.Data.DataRelation("FK_Invoice1_Product_InvoiceInfo1", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo1.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice1_Product.InvoiceIDColumn}, false)
850         Me.Relations.Add(Me.relationFK_Invoice1_Product_InvoiceInfo1)
851         Me.relationFK_Invoice1_Product_Product = New Global.System.Data.DataRelation("FK_Invoice1_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice1_Product.ProductIDColumn}, false)
852         Me.Relations.Add(Me.relationFK_Invoice1_Product_Product)
853         Me.relationFK_InvoiceInfo_Customer = New Global.System.Data.DataRelation("FK_InvoiceInfo_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.CustomerIDColumn}, false)
854         Me.Relations.Add(Me.relationFK_InvoiceInfo_Customer)
855         Me.relationFK_InvoiceInfo1_Service = New Global.System.Data.DataRelation("FK_InvoiceInfo1_Service", New Global.System.Data.DataColumn() {Me.tableService.S_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoiceInfo1.ServiceIDColumn}, false)
856         Me.Relations.Add(Me.relationFK_InvoiceInfo1_Service)
857         Me.relationFK_Logs_Registration = New Global.System.Data.DataRelation("FK_Logs_Registration", New Global.System.Data.DataColumn() {Me.tableRegistration.UserIDColumn}, New Global.System.Data.DataColumn() {Me.tableLogs.UserIDColumn}, false)
858         Me.Relations.Add(Me.relationFK_Logs_Registration)
859         Me.relationFK_Product_SubCategory = New Global.System.Data.DataRelation("FK_Product_SubCategory", New Global.System.Data.DataColumn() {Me.tableSubCategory.IDColumn}, New Global.System.Data.DataColumn() {Me.tableProduct.SubCategoryIDColumn}, false)
860         Me.Relations.Add(Me.relationFK_Product_SubCategory)
861         Me.relationFK_Product_Join_Product = New Global.System.Data.DataRelation("FK_Product_Join_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableProduct_Join.ProductIDColumn}, false)
862         Me.Relations.Add(Me.relationFK_Product_Join_Product)
863         Me.relationFK_Quotation_Customer = New Global.System.Data.DataRelation("FK_Quotation_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation.CustomerIDColumn}, false)
864         Me.Relations.Add(Me.relationFK_Quotation_Customer)
865         Me.relationFK_Quotation_Join_Product = New Global.System.Data.DataRelation("FK_Quotation_Join_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation_Join.ProductIDColumn}, false)
866         Me.Relations.Add(Me.relationFK_Quotation_Join_Product)
867         Me.relationFK_Quotation_Join_Quotation = New Global.System.Data.DataRelation("FK_Quotation_Join_Quotation", New Global.System.Data.DataColumn() {Me.tableQuotation.Q_IDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation_Join.QuotationIDColumn}, false)
868         Me.Relations.Add(Me.relationFK_Quotation_Join_Quotation)
869         Me.relationFK_Service_Customer = New Global.System.Data.DataRelation("FK_Service_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableService.CustomerIDColumn}, false)
870         Me.Relations.Add(Me.relationFK_Service_Customer)
871         Me.relationFK_Stock_Supplier = New Global.System.Data.DataRelation("FK_Stock_Supplier", New Global.System.Data.DataColumn() {Me.tableSupplier.IDColumn}, New Global.System.Data.DataColumn() {Me.tableStock.SupplierIDColumn}, false)
872         Me.Relations.Add(Me.relationFK_Stock_Supplier)
873         Me.relationFK_Stock_Product_Product = New Global.System.Data.DataRelation("FK_Stock_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableStock_Product.ProductIDColumn}, false)
874         Me.Relations.Add(Me.relationFK_Stock_Product_Product)
875         Me.relationFK_Stock_Product_Stock = New Global.System.Data.DataRelation("FK_Stock_Product_Stock", New Global.System.Data.DataColumn() {Me.tableStock.ST_IDColumn}, New Global.System.Data.DataColumn() {Me.tableStock_Product.StockIDColumn}, false)
876         Me.Relations.Add(Me.relationFK_Stock_Product_Stock)
877         Me.relationFK_SubCategory_Category = New Global.System.Data.DataRelation("FK_SubCategory_Category", New Global.System.Data.DataColumn() {Me.tableCategory.CategoryNameColumn}, New Global.System.Data.DataColumn() {Me.tableSubCategory.CategoryColumn}, false)
878         Me.Relations.Add(Me.relationFK_SubCategory_Category)
879         Me.relationFK_Temp_Stock_Product = New Global.System.Data.DataRelation("FK_Temp_Stock_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableTemp_Stock.ProductIDColumn}, false)
880         Me.Relations.Add(Me.relationFK_Temp_Stock_Product)
881     End Sub
882     
883     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
884      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
885     Private Function ShouldSerializeActivation() As Boolean
886         Return false
887     End Function
888     
889     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
890      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
891     Private Function ShouldSerializeCategory() As Boolean
892         Return false
893     End Function
894     
895     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
896      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
897     Private Function ShouldSerializeCompany() As Boolean
898         Return false
899     End Function
900     
901     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
902      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
903     Private Function ShouldSerializeCompany_Contacts() As Boolean
904         Return false
905     End Function
906     
907     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
908      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
909     Private Function ShouldSerializeCustomer() As Boolean
910         Return false
911     End Function
912     
913     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
914      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
915     Private Function ShouldSerializeInvoice_Payment() As Boolean
916         Return false
917     End Function
918     
919     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
920      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
921     Private Function ShouldSerializeInvoice_Product() As Boolean
922         Return false
923     End Function
924     
925     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
926      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
927     Private Function ShouldSerializeInvoice1_Payment() As Boolean
928         Return false
929     End Function
930     
931     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
932      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
933     Private Function ShouldSerializeInvoice1_Product() As Boolean
934         Return false
935     End Function
936     
937     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
938      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
939     Private Function ShouldSerializeInvoiceInfo() As Boolean
940         Return false
941     End Function
942     
943     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
944      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
945     Private Function ShouldSerializeInvoiceInfo1() As Boolean
946         Return false
947     End Function
948     
949     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
950      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
951     Private Function ShouldSerializeLogs() As Boolean
952         Return false
953     End Function
954     
955     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
956      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
957     Private Function ShouldSerializeProduct() As Boolean
958         Return false
959     End Function
960     
961     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
962      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
963     Private Function ShouldSerializeProduct_Join() As Boolean
964         Return false
965     End Function
966     
967     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
968      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
969     Private Function ShouldSerializeQuotation() As Boolean
970         Return false
971     End Function
972     
973     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
974      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
975     Private Function ShouldSerializeQuotation_Join() As Boolean
976         Return false
977     End Function
978     
979     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
980      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
981     Private Function ShouldSerializeRegistration() As Boolean
982         Return false
983     End Function
984     
985     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
986      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
987     Private Function ShouldSerializeService() As Boolean
988         Return false
989     End Function
990     
991     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
992      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
993     Private Function ShouldSerializeStock() As Boolean
994         Return false
995     End Function
996     
997     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
998      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
999     Private Function ShouldSerializeStock_Product() As Boolean
1000         Return false
1001     End Function
1002     
1003     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1004      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1005     Private Function ShouldSerializeSubCategory() As Boolean
1006         Return false
1007     End Function
1008     
1009     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1010      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1011     Private Function ShouldSerializeSupplier() As Boolean
1012         Return false
1013     End Function
1014     
1015     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1016      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1017     Private Function ShouldSerializeTemp_Stock() As Boolean
1018         Return false
1019     End Function
1020     
1021     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1022      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1023     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
1024         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
1025             Me.InitVars
1026         End If
1027     End Sub
1028     
1029     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1030      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1031     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1032         Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
1033         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1034         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1035         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1036         any.Namespace = ds.Namespace
1037         sequence.Items.Add(any)
1038         type.Particle = sequence
1039         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1040         If xs.Contains(dsSchema.TargetNamespace) Then
1041             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1042             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1043             Try
1044                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1045                 dsSchema.Write(s1)
1046                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1047                 Do While schemas.MoveNext
1048                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1049                     s2.SetLength(0)
1050                     schema.Write(s2)
1051                     If (s1.Length = s2.Length) Then
1052                         s1.Position = 0
1053                         s2.Position = 0
1054                         
1055                         Do While ((s1.Position <> s1.Length) _
1056                                     AndAlso (s1.ReadByte = s2.ReadByte))
1057                             
1058                             
1059                         Loop
1060                         If (s1.Position = s1.Length) Then
1061                             Return type
1062                         End If
1063                     End If
1064                     
1065                 Loop
1066             Finally
1067                 If (Not (s1) Is Nothing) Then
1068                     s1.Close
1069                 End If
1070                 If (Not (s2) Is Nothing) Then
1071                     s2.Close
1072                 End If
1073             End Try
1074         End If
1075         xs.Add(dsSchema)
1076         Return type
1077     End Function
1078     
1079     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1080     Public Delegate Sub ActivationRowChangeEventHandler(ByVal sender As Object, ByVal e As ActivationRowChangeEvent)
1081     
1082     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1083     Public Delegate Sub CategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoryRowChangeEvent)
1084     
1085     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1086     Public Delegate Sub CompanyRowChangeEventHandler(ByVal sender As Object, ByVal e As CompanyRowChangeEvent)
1087     
1088     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1089     Public Delegate Sub Company_ContactsRowChangeEventHandler(ByVal sender As Object, ByVal e As Company_ContactsRowChangeEvent)
1090     
1091     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1092     Public Delegate Sub CustomerRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomerRowChangeEvent)
1093     
1094     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1095     Public Delegate Sub Invoice_PaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice_PaymentRowChangeEvent)
1096     
1097     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1098     Public Delegate Sub Invoice_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice_ProductRowChangeEvent)
1099     
1100     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1101     Public Delegate Sub Invoice1_PaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice1_PaymentRowChangeEvent)
1102     
1103     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1104     Public Delegate Sub Invoice1_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice1_ProductRowChangeEvent)
1105     
1106     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1107     Public Delegate Sub InvoiceInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As InvoiceInfoRowChangeEvent)
1108     
1109     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1110     Public Delegate Sub InvoiceInfo1RowChangeEventHandler(ByVal sender As Object, ByVal e As InvoiceInfo1RowChangeEvent)
1111     
1112     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1113     Public Delegate Sub LogsRowChangeEventHandler(ByVal sender As Object, ByVal e As LogsRowChangeEvent)
1114     
1115     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1116     Public Delegate Sub ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As ProductRowChangeEvent)
1117     
1118     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1119     Public Delegate Sub Product_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As Product_JoinRowChangeEvent)
1120     
1121     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1122     Public Delegate Sub QuotationRowChangeEventHandler(ByVal sender As Object, ByVal e As QuotationRowChangeEvent)
1123     
1124     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1125     Public Delegate Sub Quotation_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As Quotation_JoinRowChangeEvent)
1126     
1127     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1128     Public Delegate Sub RegistrationRowChangeEventHandler(ByVal sender As Object, ByVal e As RegistrationRowChangeEvent)
1129     
1130     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1131     Public Delegate Sub ServiceRowChangeEventHandler(ByVal sender As Object, ByVal e As ServiceRowChangeEvent)
1132     
1133     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1134     Public Delegate Sub StockRowChangeEventHandler(ByVal sender As Object, ByVal e As StockRowChangeEvent)
1135     
1136     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1137     Public Delegate Sub Stock_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Stock_ProductRowChangeEvent)
1138     
1139     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1140     Public Delegate Sub SubCategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As SubCategoryRowChangeEvent)
1141     
1142     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1143     Public Delegate Sub SupplierRowChangeEventHandler(ByVal sender As Object, ByVal e As SupplierRowChangeEvent)
1144     
1145     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1146     Public Delegate Sub Temp_StockRowChangeEventHandler(ByVal sender As Object, ByVal e As Temp_StockRowChangeEvent)
1147     
1148     '''<summary>
1149     '''Represents the strongly named DataTable class.
1150     '''</summary>
1151     <Global.System.Serializable(), _
1152      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1153     Partial Public Class ActivationDataTable
1154         Inherits Global.System.Data.TypedTableBase(Of ActivationRow)
1155         
1156         Private columnID As Global.System.Data.DataColumn
1157         
1158         Private columnHardwareID As Global.System.Data.DataColumn
1159         
1160         Private columnSerialNo As Global.System.Data.DataColumn
1161         
1162         Private columnActivationID As Global.System.Data.DataColumn
1163         
1164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1166         Public Sub New()
1167             MyBase.New
1168             Me.TableName = "Activation"
1169             Me.BeginInit
1170             Me.InitClass
1171             Me.EndInit
1172         End Sub
1173         
1174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1176         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1177             MyBase.New
1178             Me.TableName = table.TableName
1179             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1180                 Me.CaseSensitive = table.CaseSensitive
1181             End If
1182             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1183                 Me.Locale = table.Locale
1184             End If
1185             If (table.Namespace <> table.DataSet.Namespace) Then
1186                 Me.Namespace = table.Namespace
1187             End If
1188             Me.Prefix = table.Prefix
1189             Me.MinimumCapacity = table.MinimumCapacity
1190         End Sub
1191         
1192         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1193          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1194         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1195             MyBase.New(info, context)
1196             Me.InitVars
1197         End Sub
1198         
1199         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1200          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1201         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1202             Get
1203                 Return Me.columnID
1204             End Get
1205         End Property
1206         
1207         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1208          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1209         Public ReadOnly Property HardwareIDColumn() As Global.System.Data.DataColumn
1210             Get
1211                 Return Me.columnHardwareID
1212             End Get
1213         End Property
1214         
1215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1217         Public ReadOnly Property SerialNoColumn() As Global.System.Data.DataColumn
1218             Get
1219                 Return Me.columnSerialNo
1220             End Get
1221         End Property
1222         
1223         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1224          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1225         Public ReadOnly Property ActivationIDColumn() As Global.System.Data.DataColumn
1226             Get
1227                 Return Me.columnActivationID
1228             End Get
1229         End Property
1230         
1231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1233          Global.System.ComponentModel.Browsable(false)> _
1234         Public ReadOnly Property Count() As Integer
1235             Get
1236                 Return Me.Rows.Count
1237             End Get
1238         End Property
1239         
1240         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1241          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1242         Public Default ReadOnly Property Item(ByVal index As Integer) As ActivationRow
1243             Get
1244                 Return CType(Me.Rows(index),ActivationRow)
1245             End Get
1246         End Property
1247         
1248         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1249         Public Event ActivationRowChanging As ActivationRowChangeEventHandler
1250         
1251         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1252         Public Event ActivationRowChanged As ActivationRowChangeEventHandler
1253         
1254         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1255         Public Event ActivationRowDeleting As ActivationRowChangeEventHandler
1256         
1257         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1258         Public Event ActivationRowDeleted As ActivationRowChangeEventHandler
1259         
1260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1262         Public Overloads Sub AddActivationRow(ByVal row As ActivationRow)
1263             Me.Rows.Add(row)
1264         End Sub
1265         
1266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1268         Public Overloads Function AddActivationRow(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As ActivationRow
1269             Dim rowActivationRow As ActivationRow = CType(Me.NewRow,ActivationRow)
1270             Dim columnValuesArray() As Object = New Object() {Nothing, HardwareID, SerialNo, ActivationID}
1271             rowActivationRow.ItemArray = columnValuesArray
1272             Me.Rows.Add(rowActivationRow)
1273             Return rowActivationRow
1274         End Function
1275         
1276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1278         Public Function FindByID(ByVal ID As Integer) As ActivationRow
1279             Return CType(Me.Rows.Find(New Object() {ID}),ActivationRow)
1280         End Function
1281         
1282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1284         Public Overrides Function Clone() As Global.System.Data.DataTable
1285             Dim cln As ActivationDataTable = CType(MyBase.Clone,ActivationDataTable)
1286             cln.InitVars
1287             Return cln
1288         End Function
1289         
1290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1292         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1293             Return New ActivationDataTable()
1294         End Function
1295         
1296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1298         Friend Sub InitVars()
1299             Me.columnID = MyBase.Columns("ID")
1300             Me.columnHardwareID = MyBase.Columns("HardwareID")
1301             Me.columnSerialNo = MyBase.Columns("SerialNo")
1302             Me.columnActivationID = MyBase.Columns("ActivationID")
1303         End Sub
1304         
1305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1307         Private Sub InitClass()
1308             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1309             MyBase.Columns.Add(Me.columnID)
1310             Me.columnHardwareID = New Global.System.Data.DataColumn("HardwareID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1311             MyBase.Columns.Add(Me.columnHardwareID)
1312             Me.columnSerialNo = New Global.System.Data.DataColumn("SerialNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1313             MyBase.Columns.Add(Me.columnSerialNo)
1314             Me.columnActivationID = New Global.System.Data.DataColumn("ActivationID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1315             MyBase.Columns.Add(Me.columnActivationID)
1316             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1317             Me.columnID.AutoIncrement = true
1318             Me.columnID.AutoIncrementSeed = -1
1319             Me.columnID.AutoIncrementStep = -1
1320             Me.columnID.AllowDBNull = false
1321             Me.columnID.ReadOnly = true
1322             Me.columnID.Unique = true
1323             Me.columnHardwareID.AllowDBNull = false
1324             Me.columnHardwareID.MaxLength = 100
1325             Me.columnSerialNo.AllowDBNull = false
1326             Me.columnSerialNo.MaxLength = 100
1327             Me.columnActivationID.AllowDBNull = false
1328             Me.columnActivationID.MaxLength = 150
1329         End Sub
1330         
1331         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1332          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1333         Public Function NewActivationRow() As ActivationRow
1334             Return CType(Me.NewRow,ActivationRow)
1335         End Function
1336         
1337         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1338          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1339         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1340             Return New ActivationRow(builder)
1341         End Function
1342         
1343         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1344          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1345         Protected Overrides Function GetRowType() As Global.System.Type
1346             Return GetType(ActivationRow)
1347         End Function
1348         
1349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1351         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1352             MyBase.OnRowChanged(e)
1353             If (Not (Me.ActivationRowChangedEvent) Is Nothing) Then
1354                 RaiseEvent ActivationRowChanged(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1355             End If
1356         End Sub
1357         
1358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1360         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1361             MyBase.OnRowChanging(e)
1362             If (Not (Me.ActivationRowChangingEvent) Is Nothing) Then
1363                 RaiseEvent ActivationRowChanging(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1364             End If
1365         End Sub
1366         
1367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1369         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1370             MyBase.OnRowDeleted(e)
1371             If (Not (Me.ActivationRowDeletedEvent) Is Nothing) Then
1372                 RaiseEvent ActivationRowDeleted(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1373             End If
1374         End Sub
1375         
1376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1378         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1379             MyBase.OnRowDeleting(e)
1380             If (Not (Me.ActivationRowDeletingEvent) Is Nothing) Then
1381                 RaiseEvent ActivationRowDeleting(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1382             End If
1383         End Sub
1384         
1385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1387         Public Sub RemoveActivationRow(ByVal row As ActivationRow)
1388             Me.Rows.Remove(row)
1389         End Sub
1390         
1391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1393         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1394             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1395             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1396             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
1397             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1398             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1399             any1.MinOccurs = New Decimal(0)
1400             any1.MaxOccurs = Decimal.MaxValue
1401             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1402             sequence.Items.Add(any1)
1403             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1404             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1405             any2.MinOccurs = New Decimal(1)
1406             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1407             sequence.Items.Add(any2)
1408             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1409             attribute1.Name = "namespace"
1410             attribute1.FixedValue = ds.Namespace
1411             type.Attributes.Add(attribute1)
1412             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1413             attribute2.Name = "tableTypeName"
1414             attribute2.FixedValue = "ActivationDataTable"
1415             type.Attributes.Add(attribute2)
1416             type.Particle = sequence
1417             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1418             If xs.Contains(dsSchema.TargetNamespace) Then
1419                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1420                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1421                 Try
1422                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1423                     dsSchema.Write(s1)
1424                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1425                     Do While schemas.MoveNext
1426                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1427                         s2.SetLength(0)
1428                         schema.Write(s2)
1429                         If (s1.Length = s2.Length) Then
1430                             s1.Position = 0
1431                             s2.Position = 0
1432                             
1433                             Do While ((s1.Position <> s1.Length) _
1434                                         AndAlso (s1.ReadByte = s2.ReadByte))
1435                                 
1436                                 
1437                             Loop
1438                             If (s1.Position = s1.Length) Then
1439                                 Return type
1440                             End If
1441                         End If
1442                         
1443                     Loop
1444                 Finally
1445                     If (Not (s1) Is Nothing) Then
1446                         s1.Close
1447                     End If
1448                     If (Not (s2) Is Nothing) Then
1449                         s2.Close
1450                     End If
1451                 End Try
1452             End If
1453             xs.Add(dsSchema)
1454             Return type
1455         End Function
1456     End Class
1457     
1458     '''<summary>
1459     '''Represents the strongly named DataTable class.
1460     '''</summary>
1461     <Global.System.Serializable(), _
1462      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1463     Partial Public Class CategoryDataTable
1464         Inherits Global.System.Data.TypedTableBase(Of CategoryRow)
1465         
1466         Private columnCategoryName As Global.System.Data.DataColumn
1467         
1468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1470         Public Sub New()
1471             MyBase.New
1472             Me.TableName = "Category"
1473             Me.BeginInit
1474             Me.InitClass
1475             Me.EndInit
1476         End Sub
1477         
1478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1480         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1481             MyBase.New
1482             Me.TableName = table.TableName
1483             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1484                 Me.CaseSensitive = table.CaseSensitive
1485             End If
1486             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1487                 Me.Locale = table.Locale
1488             End If
1489             If (table.Namespace <> table.DataSet.Namespace) Then
1490                 Me.Namespace = table.Namespace
1491             End If
1492             Me.Prefix = table.Prefix
1493             Me.MinimumCapacity = table.MinimumCapacity
1494         End Sub
1495         
1496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1498         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1499             MyBase.New(info, context)
1500             Me.InitVars
1501         End Sub
1502         
1503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1505         Public ReadOnly Property CategoryNameColumn() As Global.System.Data.DataColumn
1506             Get
1507                 Return Me.columnCategoryName
1508             End Get
1509         End Property
1510         
1511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1513          Global.System.ComponentModel.Browsable(false)> _
1514         Public ReadOnly Property Count() As Integer
1515             Get
1516                 Return Me.Rows.Count
1517             End Get
1518         End Property
1519         
1520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1522         Public Default ReadOnly Property Item(ByVal index As Integer) As CategoryRow
1523             Get
1524                 Return CType(Me.Rows(index),CategoryRow)
1525             End Get
1526         End Property
1527         
1528         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1529         Public Event CategoryRowChanging As CategoryRowChangeEventHandler
1530         
1531         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1532         Public Event CategoryRowChanged As CategoryRowChangeEventHandler
1533         
1534         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1535         Public Event CategoryRowDeleting As CategoryRowChangeEventHandler
1536         
1537         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1538         Public Event CategoryRowDeleted As CategoryRowChangeEventHandler
1539         
1540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1542         Public Overloads Sub AddCategoryRow(ByVal row As CategoryRow)
1543             Me.Rows.Add(row)
1544         End Sub
1545         
1546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1548         Public Overloads Function AddCategoryRow(ByVal CategoryName As String) As CategoryRow
1549             Dim rowCategoryRow As CategoryRow = CType(Me.NewRow,CategoryRow)
1550             Dim columnValuesArray() As Object = New Object() {CategoryName}
1551             rowCategoryRow.ItemArray = columnValuesArray
1552             Me.Rows.Add(rowCategoryRow)
1553             Return rowCategoryRow
1554         End Function
1555         
1556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1558         Public Function FindByCategoryName(ByVal CategoryName As String) As CategoryRow
1559             Return CType(Me.Rows.Find(New Object() {CategoryName}),CategoryRow)
1560         End Function
1561         
1562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1564         Public Overrides Function Clone() As Global.System.Data.DataTable
1565             Dim cln As CategoryDataTable = CType(MyBase.Clone,CategoryDataTable)
1566             cln.InitVars
1567             Return cln
1568         End Function
1569         
1570         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1571          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1572         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1573             Return New CategoryDataTable()
1574         End Function
1575         
1576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1578         Friend Sub InitVars()
1579             Me.columnCategoryName = MyBase.Columns("CategoryName")
1580         End Sub
1581         
1582         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1583          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1584         Private Sub InitClass()
1585             Me.columnCategoryName = New Global.System.Data.DataColumn("CategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1586             MyBase.Columns.Add(Me.columnCategoryName)
1587             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCategoryName}, true))
1588             Me.columnCategoryName.AllowDBNull = false
1589             Me.columnCategoryName.Unique = true
1590             Me.columnCategoryName.MaxLength = 150
1591         End Sub
1592         
1593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1595         Public Function NewCategoryRow() As CategoryRow
1596             Return CType(Me.NewRow,CategoryRow)
1597         End Function
1598         
1599         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1600          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1601         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1602             Return New CategoryRow(builder)
1603         End Function
1604         
1605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1607         Protected Overrides Function GetRowType() As Global.System.Type
1608             Return GetType(CategoryRow)
1609         End Function
1610         
1611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1613         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1614             MyBase.OnRowChanged(e)
1615             If (Not (Me.CategoryRowChangedEvent) Is Nothing) Then
1616                 RaiseEvent CategoryRowChanged(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1617             End If
1618         End Sub
1619         
1620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1622         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1623             MyBase.OnRowChanging(e)
1624             If (Not (Me.CategoryRowChangingEvent) Is Nothing) Then
1625                 RaiseEvent CategoryRowChanging(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1626             End If
1627         End Sub
1628         
1629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1631         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1632             MyBase.OnRowDeleted(e)
1633             If (Not (Me.CategoryRowDeletedEvent) Is Nothing) Then
1634                 RaiseEvent CategoryRowDeleted(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1635             End If
1636         End Sub
1637         
1638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1640         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1641             MyBase.OnRowDeleting(e)
1642             If (Not (Me.CategoryRowDeletingEvent) Is Nothing) Then
1643                 RaiseEvent CategoryRowDeleting(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1644             End If
1645         End Sub
1646         
1647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1649         Public Sub RemoveCategoryRow(ByVal row As CategoryRow)
1650             Me.Rows.Remove(row)
1651         End Sub
1652         
1653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1655         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1656             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1657             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1658             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
1659             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1660             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1661             any1.MinOccurs = New Decimal(0)
1662             any1.MaxOccurs = Decimal.MaxValue
1663             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1664             sequence.Items.Add(any1)
1665             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1666             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1667             any2.MinOccurs = New Decimal(1)
1668             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1669             sequence.Items.Add(any2)
1670             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1671             attribute1.Name = "namespace"
1672             attribute1.FixedValue = ds.Namespace
1673             type.Attributes.Add(attribute1)
1674             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1675             attribute2.Name = "tableTypeName"
1676             attribute2.FixedValue = "CategoryDataTable"
1677             type.Attributes.Add(attribute2)
1678             type.Particle = sequence
1679             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1680             If xs.Contains(dsSchema.TargetNamespace) Then
1681                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1682                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1683                 Try
1684                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1685                     dsSchema.Write(s1)
1686                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1687                     Do While schemas.MoveNext
1688                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1689                         s2.SetLength(0)
1690                         schema.Write(s2)
1691                         If (s1.Length = s2.Length) Then
1692                             s1.Position = 0
1693                             s2.Position = 0
1694                             
1695                             Do While ((s1.Position <> s1.Length) _
1696                                         AndAlso (s1.ReadByte = s2.ReadByte))
1697                                 
1698                                 
1699                             Loop
1700                             If (s1.Position = s1.Length) Then
1701                                 Return type
1702                             End If
1703                         End If
1704                         
1705                     Loop
1706                 Finally
1707                     If (Not (s1) Is Nothing) Then
1708                         s1.Close
1709                     End If
1710                     If (Not (s2) Is Nothing) Then
1711                         s2.Close
1712                     End If
1713                 End Try
1714             End If
1715             xs.Add(dsSchema)
1716             Return type
1717         End Function
1718     End Class
1719     
1720     '''<summary>
1721     '''Represents the strongly named DataTable class.
1722     '''</summary>
1723     <Global.System.Serializable(), _
1724      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1725     Partial Public Class CompanyDataTable
1726         Inherits Global.System.Data.TypedTableBase(Of CompanyRow)
1727         
1728         Private columnID As Global.System.Data.DataColumn
1729         
1730         Private columnCompanyName As Global.System.Data.DataColumn
1731         
1732         Private columnAddress As Global.System.Data.DataColumn
1733         
1734         Private columnContactNo As Global.System.Data.DataColumn
1735         
1736         Private columnEmailID As Global.System.Data.DataColumn
1737         
1738         Private columnLogo As Global.System.Data.DataColumn
1739         
1740         Private columnTIN As Global.System.Data.DataColumn
1741         
1742         Private columnSTNo As Global.System.Data.DataColumn
1743         
1744         Private columnCIN As Global.System.Data.DataColumn
1745         
1746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1748         Public Sub New()
1749             MyBase.New
1750             Me.TableName = "Company"
1751             Me.BeginInit
1752             Me.InitClass
1753             Me.EndInit
1754         End Sub
1755         
1756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1758         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1759             MyBase.New
1760             Me.TableName = table.TableName
1761             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1762                 Me.CaseSensitive = table.CaseSensitive
1763             End If
1764             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1765                 Me.Locale = table.Locale
1766             End If
1767             If (table.Namespace <> table.DataSet.Namespace) Then
1768                 Me.Namespace = table.Namespace
1769             End If
1770             Me.Prefix = table.Prefix
1771             Me.MinimumCapacity = table.MinimumCapacity
1772         End Sub
1773         
1774         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1775          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1776         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1777             MyBase.New(info, context)
1778             Me.InitVars
1779         End Sub
1780         
1781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1783         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1784             Get
1785                 Return Me.columnID
1786             End Get
1787         End Property
1788         
1789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1791         Public ReadOnly Property CompanyNameColumn() As Global.System.Data.DataColumn
1792             Get
1793                 Return Me.columnCompanyName
1794             End Get
1795         End Property
1796         
1797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1799         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
1800             Get
1801                 Return Me.columnAddress
1802             End Get
1803         End Property
1804         
1805         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1806          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1807         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
1808             Get
1809                 Return Me.columnContactNo
1810             End Get
1811         End Property
1812         
1813         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1814          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1815         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
1816             Get
1817                 Return Me.columnEmailID
1818             End Get
1819         End Property
1820         
1821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1823         Public ReadOnly Property LogoColumn() As Global.System.Data.DataColumn
1824             Get
1825                 Return Me.columnLogo
1826             End Get
1827         End Property
1828         
1829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1831         Public ReadOnly Property TINColumn() As Global.System.Data.DataColumn
1832             Get
1833                 Return Me.columnTIN
1834             End Get
1835         End Property
1836         
1837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1839         Public ReadOnly Property STNoColumn() As Global.System.Data.DataColumn
1840             Get
1841                 Return Me.columnSTNo
1842             End Get
1843         End Property
1844         
1845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1847         Public ReadOnly Property CINColumn() As Global.System.Data.DataColumn
1848             Get
1849                 Return Me.columnCIN
1850             End Get
1851         End Property
1852         
1853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1855          Global.System.ComponentModel.Browsable(false)> _
1856         Public ReadOnly Property Count() As Integer
1857             Get
1858                 Return Me.Rows.Count
1859             End Get
1860         End Property
1861         
1862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1864         Public Default ReadOnly Property Item(ByVal index As Integer) As CompanyRow
1865             Get
1866                 Return CType(Me.Rows(index),CompanyRow)
1867             End Get
1868         End Property
1869         
1870         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1871         Public Event CompanyRowChanging As CompanyRowChangeEventHandler
1872         
1873         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1874         Public Event CompanyRowChanged As CompanyRowChangeEventHandler
1875         
1876         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1877         Public Event CompanyRowDeleting As CompanyRowChangeEventHandler
1878         
1879         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1880         Public Event CompanyRowDeleted As CompanyRowChangeEventHandler
1881         
1882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1884         Public Overloads Sub AddCompanyRow(ByVal row As CompanyRow)
1885             Me.Rows.Add(row)
1886         End Sub
1887         
1888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1890         Public Overloads Function AddCompanyRow(ByVal CompanyName As String, ByVal Address As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Logo() As Byte, ByVal TIN As String, ByVal STNo As String, ByVal CIN As String) As CompanyRow
1891             Dim rowCompanyRow As CompanyRow = CType(Me.NewRow,CompanyRow)
1892             Dim columnValuesArray() As Object = New Object() {Nothing, CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN}
1893             rowCompanyRow.ItemArray = columnValuesArray
1894             Me.Rows.Add(rowCompanyRow)
1895             Return rowCompanyRow
1896         End Function
1897         
1898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1900         Public Function FindByID(ByVal ID As Integer) As CompanyRow
1901             Return CType(Me.Rows.Find(New Object() {ID}),CompanyRow)
1902         End Function
1903         
1904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1906         Public Overrides Function Clone() As Global.System.Data.DataTable
1907             Dim cln As CompanyDataTable = CType(MyBase.Clone,CompanyDataTable)
1908             cln.InitVars
1909             Return cln
1910         End Function
1911         
1912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1914         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1915             Return New CompanyDataTable()
1916         End Function
1917         
1918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1920         Friend Sub InitVars()
1921             Me.columnID = MyBase.Columns("ID")
1922             Me.columnCompanyName = MyBase.Columns("CompanyName")
1923             Me.columnAddress = MyBase.Columns("Address")
1924             Me.columnContactNo = MyBase.Columns("ContactNo")
1925             Me.columnEmailID = MyBase.Columns("EmailID")
1926             Me.columnLogo = MyBase.Columns("Logo")
1927             Me.columnTIN = MyBase.Columns("TIN")
1928             Me.columnSTNo = MyBase.Columns("STNo")
1929             Me.columnCIN = MyBase.Columns("CIN")
1930         End Sub
1931         
1932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1934         Private Sub InitClass()
1935             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1936             MyBase.Columns.Add(Me.columnID)
1937             Me.columnCompanyName = New Global.System.Data.DataColumn("CompanyName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1938             MyBase.Columns.Add(Me.columnCompanyName)
1939             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1940             MyBase.Columns.Add(Me.columnAddress)
1941             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1942             MyBase.Columns.Add(Me.columnContactNo)
1943             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1944             MyBase.Columns.Add(Me.columnEmailID)
1945             Me.columnLogo = New Global.System.Data.DataColumn("Logo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
1946             MyBase.Columns.Add(Me.columnLogo)
1947             Me.columnTIN = New Global.System.Data.DataColumn("TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1948             MyBase.Columns.Add(Me.columnTIN)
1949             Me.columnSTNo = New Global.System.Data.DataColumn("STNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1950             MyBase.Columns.Add(Me.columnSTNo)
1951             Me.columnCIN = New Global.System.Data.DataColumn("CIN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1952             MyBase.Columns.Add(Me.columnCIN)
1953             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1954             Me.columnID.AutoIncrement = true
1955             Me.columnID.AutoIncrementSeed = -1
1956             Me.columnID.AutoIncrementStep = -1
1957             Me.columnID.AllowDBNull = false
1958             Me.columnID.ReadOnly = true
1959             Me.columnID.Unique = true
1960             Me.columnCompanyName.AllowDBNull = false
1961             Me.columnCompanyName.MaxLength = 200
1962             Me.columnAddress.AllowDBNull = false
1963             Me.columnAddress.MaxLength = 250
1964             Me.columnContactNo.AllowDBNull = false
1965             Me.columnContactNo.MaxLength = 150
1966             Me.columnEmailID.AllowDBNull = false
1967             Me.columnEmailID.MaxLength = 150
1968             Me.columnLogo.AllowDBNull = false
1969             Me.columnTIN.MaxLength = 150
1970             Me.columnSTNo.MaxLength = 150
1971             Me.columnCIN.MaxLength = 150
1972         End Sub
1973         
1974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1976         Public Function NewCompanyRow() As CompanyRow
1977             Return CType(Me.NewRow,CompanyRow)
1978         End Function
1979         
1980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1982         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1983             Return New CompanyRow(builder)
1984         End Function
1985         
1986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1988         Protected Overrides Function GetRowType() As Global.System.Type
1989             Return GetType(CompanyRow)
1990         End Function
1991         
1992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1994         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1995             MyBase.OnRowChanged(e)
1996             If (Not (Me.CompanyRowChangedEvent) Is Nothing) Then
1997                 RaiseEvent CompanyRowChanged(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
1998             End If
1999         End Sub
2000         
2001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2003         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2004             MyBase.OnRowChanging(e)
2005             If (Not (Me.CompanyRowChangingEvent) Is Nothing) Then
2006                 RaiseEvent CompanyRowChanging(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2007             End If
2008         End Sub
2009         
2010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2012         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2013             MyBase.OnRowDeleted(e)
2014             If (Not (Me.CompanyRowDeletedEvent) Is Nothing) Then
2015                 RaiseEvent CompanyRowDeleted(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2016             End If
2017         End Sub
2018         
2019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2021         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2022             MyBase.OnRowDeleting(e)
2023             If (Not (Me.CompanyRowDeletingEvent) Is Nothing) Then
2024                 RaiseEvent CompanyRowDeleting(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2025             End If
2026         End Sub
2027         
2028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2030         Public Sub RemoveCompanyRow(ByVal row As CompanyRow)
2031             Me.Rows.Remove(row)
2032         End Sub
2033         
2034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2036         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2037             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2038             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2039             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
2040             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2041             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2042             any1.MinOccurs = New Decimal(0)
2043             any1.MaxOccurs = Decimal.MaxValue
2044             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2045             sequence.Items.Add(any1)
2046             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2047             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2048             any2.MinOccurs = New Decimal(1)
2049             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2050             sequence.Items.Add(any2)
2051             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2052             attribute1.Name = "namespace"
2053             attribute1.FixedValue = ds.Namespace
2054             type.Attributes.Add(attribute1)
2055             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2056             attribute2.Name = "tableTypeName"
2057             attribute2.FixedValue = "CompanyDataTable"
2058             type.Attributes.Add(attribute2)
2059             type.Particle = sequence
2060             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2061             If xs.Contains(dsSchema.TargetNamespace) Then
2062                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2063                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2064                 Try
2065                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2066                     dsSchema.Write(s1)
2067                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2068                     Do While schemas.MoveNext
2069                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2070                         s2.SetLength(0)
2071                         schema.Write(s2)
2072                         If (s1.Length = s2.Length) Then
2073                             s1.Position = 0
2074                             s2.Position = 0
2075                             
2076                             Do While ((s1.Position <> s1.Length) _
2077                                         AndAlso (s1.ReadByte = s2.ReadByte))
2078                                 
2079                                 
2080                             Loop
2081                             If (s1.Position = s1.Length) Then
2082                                 Return type
2083                             End If
2084                         End If
2085                         
2086                     Loop
2087                 Finally
2088                     If (Not (s1) Is Nothing) Then
2089                         s1.Close
2090                     End If
2091                     If (Not (s2) Is Nothing) Then
2092                         s2.Close
2093                     End If
2094                 End Try
2095             End If
2096             xs.Add(dsSchema)
2097             Return type
2098         End Function
2099     End Class
2100     
2101     '''<summary>
2102     '''Represents the strongly named DataTable class.
2103     '''</summary>
2104     <Global.System.Serializable(), _
2105      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2106     Partial Public Class Company_ContactsDataTable
2107         Inherits Global.System.Data.TypedTableBase(Of Company_ContactsRow)
2108         
2109         Private columnId As Global.System.Data.DataColumn
2110         
2111         Private columnContactPerson As Global.System.Data.DataColumn
2112         
2113         Private columnContactNo As Global.System.Data.DataColumn
2114         
2115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2117         Public Sub New()
2118             MyBase.New
2119             Me.TableName = "Company_Contacts"
2120             Me.BeginInit
2121             Me.InitClass
2122             Me.EndInit
2123         End Sub
2124         
2125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2127         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2128             MyBase.New
2129             Me.TableName = table.TableName
2130             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2131                 Me.CaseSensitive = table.CaseSensitive
2132             End If
2133             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2134                 Me.Locale = table.Locale
2135             End If
2136             If (table.Namespace <> table.DataSet.Namespace) Then
2137                 Me.Namespace = table.Namespace
2138             End If
2139             Me.Prefix = table.Prefix
2140             Me.MinimumCapacity = table.MinimumCapacity
2141         End Sub
2142         
2143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2145         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2146             MyBase.New(info, context)
2147             Me.InitVars
2148         End Sub
2149         
2150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2152         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
2153             Get
2154                 Return Me.columnId
2155             End Get
2156         End Property
2157         
2158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2160         Public ReadOnly Property ContactPersonColumn() As Global.System.Data.DataColumn
2161             Get
2162                 Return Me.columnContactPerson
2163             End Get
2164         End Property
2165         
2166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2168         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2169             Get
2170                 Return Me.columnContactNo
2171             End Get
2172         End Property
2173         
2174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2176          Global.System.ComponentModel.Browsable(false)> _
2177         Public ReadOnly Property Count() As Integer
2178             Get
2179                 Return Me.Rows.Count
2180             End Get
2181         End Property
2182         
2183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2185         Public Default ReadOnly Property Item(ByVal index As Integer) As Company_ContactsRow
2186             Get
2187                 Return CType(Me.Rows(index),Company_ContactsRow)
2188             End Get
2189         End Property
2190         
2191         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2192         Public Event Company_ContactsRowChanging As Company_ContactsRowChangeEventHandler
2193         
2194         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2195         Public Event Company_ContactsRowChanged As Company_ContactsRowChangeEventHandler
2196         
2197         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2198         Public Event Company_ContactsRowDeleting As Company_ContactsRowChangeEventHandler
2199         
2200         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2201         Public Event Company_ContactsRowDeleted As Company_ContactsRowChangeEventHandler
2202         
2203         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2204          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2205         Public Overloads Sub AddCompany_ContactsRow(ByVal row As Company_ContactsRow)
2206             Me.Rows.Add(row)
2207         End Sub
2208         
2209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2211         Public Overloads Function AddCompany_ContactsRow(ByVal ContactPerson As String, ByVal ContactNo As String) As Company_ContactsRow
2212             Dim rowCompany_ContactsRow As Company_ContactsRow = CType(Me.NewRow,Company_ContactsRow)
2213             Dim columnValuesArray() As Object = New Object() {Nothing, ContactPerson, ContactNo}
2214             rowCompany_ContactsRow.ItemArray = columnValuesArray
2215             Me.Rows.Add(rowCompany_ContactsRow)
2216             Return rowCompany_ContactsRow
2217         End Function
2218         
2219         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2220          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2221         Public Function FindById(ByVal Id As Integer) As Company_ContactsRow
2222             Return CType(Me.Rows.Find(New Object() {Id}),Company_ContactsRow)
2223         End Function
2224         
2225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2227         Public Overrides Function Clone() As Global.System.Data.DataTable
2228             Dim cln As Company_ContactsDataTable = CType(MyBase.Clone,Company_ContactsDataTable)
2229             cln.InitVars
2230             Return cln
2231         End Function
2232         
2233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2235         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2236             Return New Company_ContactsDataTable()
2237         End Function
2238         
2239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2241         Friend Sub InitVars()
2242             Me.columnId = MyBase.Columns("Id")
2243             Me.columnContactPerson = MyBase.Columns("ContactPerson")
2244             Me.columnContactNo = MyBase.Columns("ContactNo")
2245         End Sub
2246         
2247         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2248          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2249         Private Sub InitClass()
2250             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2251             MyBase.Columns.Add(Me.columnId)
2252             Me.columnContactPerson = New Global.System.Data.DataColumn("ContactPerson", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2253             MyBase.Columns.Add(Me.columnContactPerson)
2254             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2255             MyBase.Columns.Add(Me.columnContactNo)
2256             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
2257             Me.columnId.AutoIncrement = true
2258             Me.columnId.AutoIncrementSeed = -1
2259             Me.columnId.AutoIncrementStep = -1
2260             Me.columnId.AllowDBNull = false
2261             Me.columnId.ReadOnly = true
2262             Me.columnId.Unique = true
2263             Me.columnContactPerson.AllowDBNull = false
2264             Me.columnContactPerson.MaxLength = 150
2265             Me.columnContactNo.AllowDBNull = false
2266             Me.columnContactNo.MaxLength = 150
2267         End Sub
2268         
2269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2271         Public Function NewCompany_ContactsRow() As Company_ContactsRow
2272             Return CType(Me.NewRow,Company_ContactsRow)
2273         End Function
2274         
2275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2277         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2278             Return New Company_ContactsRow(builder)
2279         End Function
2280         
2281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2283         Protected Overrides Function GetRowType() As Global.System.Type
2284             Return GetType(Company_ContactsRow)
2285         End Function
2286         
2287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2289         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2290             MyBase.OnRowChanged(e)
2291             If (Not (Me.Company_ContactsRowChangedEvent) Is Nothing) Then
2292                 RaiseEvent Company_ContactsRowChanged(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2293             End If
2294         End Sub
2295         
2296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2298         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2299             MyBase.OnRowChanging(e)
2300             If (Not (Me.Company_ContactsRowChangingEvent) Is Nothing) Then
2301                 RaiseEvent Company_ContactsRowChanging(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2302             End If
2303         End Sub
2304         
2305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2307         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2308             MyBase.OnRowDeleted(e)
2309             If (Not (Me.Company_ContactsRowDeletedEvent) Is Nothing) Then
2310                 RaiseEvent Company_ContactsRowDeleted(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2311             End If
2312         End Sub
2313         
2314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2316         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2317             MyBase.OnRowDeleting(e)
2318             If (Not (Me.Company_ContactsRowDeletingEvent) Is Nothing) Then
2319                 RaiseEvent Company_ContactsRowDeleting(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2320             End If
2321         End Sub
2322         
2323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2325         Public Sub RemoveCompany_ContactsRow(ByVal row As Company_ContactsRow)
2326             Me.Rows.Remove(row)
2327         End Sub
2328         
2329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2331         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2332             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2333             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2334             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
2335             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2336             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2337             any1.MinOccurs = New Decimal(0)
2338             any1.MaxOccurs = Decimal.MaxValue
2339             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2340             sequence.Items.Add(any1)
2341             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2342             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2343             any2.MinOccurs = New Decimal(1)
2344             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2345             sequence.Items.Add(any2)
2346             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2347             attribute1.Name = "namespace"
2348             attribute1.FixedValue = ds.Namespace
2349             type.Attributes.Add(attribute1)
2350             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2351             attribute2.Name = "tableTypeName"
2352             attribute2.FixedValue = "Company_ContactsDataTable"
2353             type.Attributes.Add(attribute2)
2354             type.Particle = sequence
2355             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2356             If xs.Contains(dsSchema.TargetNamespace) Then
2357                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2358                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2359                 Try
2360                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2361                     dsSchema.Write(s1)
2362                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2363                     Do While schemas.MoveNext
2364                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2365                         s2.SetLength(0)
2366                         schema.Write(s2)
2367                         If (s1.Length = s2.Length) Then
2368                             s1.Position = 0
2369                             s2.Position = 0
2370                             
2371                             Do While ((s1.Position <> s1.Length) _
2372                                         AndAlso (s1.ReadByte = s2.ReadByte))
2373                                 
2374                                 
2375                             Loop
2376                             If (s1.Position = s1.Length) Then
2377                                 Return type
2378                             End If
2379                         End If
2380                         
2381                     Loop
2382                 Finally
2383                     If (Not (s1) Is Nothing) Then
2384                         s1.Close
2385                     End If
2386                     If (Not (s2) Is Nothing) Then
2387                         s2.Close
2388                     End If
2389                 End Try
2390             End If
2391             xs.Add(dsSchema)
2392             Return type
2393         End Function
2394     End Class
2395     
2396     '''<summary>
2397     '''Represents the strongly named DataTable class.
2398     '''</summary>
2399     <Global.System.Serializable(), _
2400      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2401     Partial Public Class CustomerDataTable
2402         Inherits Global.System.Data.TypedTableBase(Of CustomerRow)
2403         
2404         Private columnID As Global.System.Data.DataColumn
2405         
2406         Private columnCustomerID As Global.System.Data.DataColumn
2407         
2408         Private columnName As Global.System.Data.DataColumn
2409         
2410         Private columnGender As Global.System.Data.DataColumn
2411         
2412         Private columnAddress As Global.System.Data.DataColumn
2413         
2414         Private columnCity As Global.System.Data.DataColumn
2415         
2416         Private columnState As Global.System.Data.DataColumn
2417         
2418         Private columnZipCode As Global.System.Data.DataColumn
2419         
2420         Private columnContactNo As Global.System.Data.DataColumn
2421         
2422         Private columnEmailID As Global.System.Data.DataColumn
2423         
2424         Private columnRemarks As Global.System.Data.DataColumn
2425         
2426         Private columnPhoto As Global.System.Data.DataColumn
2427         
2428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2430         Public Sub New()
2431             MyBase.New
2432             Me.TableName = "Customer"
2433             Me.BeginInit
2434             Me.InitClass
2435             Me.EndInit
2436         End Sub
2437         
2438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2440         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2441             MyBase.New
2442             Me.TableName = table.TableName
2443             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2444                 Me.CaseSensitive = table.CaseSensitive
2445             End If
2446             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2447                 Me.Locale = table.Locale
2448             End If
2449             If (table.Namespace <> table.DataSet.Namespace) Then
2450                 Me.Namespace = table.Namespace
2451             End If
2452             Me.Prefix = table.Prefix
2453             Me.MinimumCapacity = table.MinimumCapacity
2454         End Sub
2455         
2456         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2457          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2458         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2459             MyBase.New(info, context)
2460             Me.InitVars
2461         End Sub
2462         
2463         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2464          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2465         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
2466             Get
2467                 Return Me.columnID
2468             End Get
2469         End Property
2470         
2471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2473         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
2474             Get
2475                 Return Me.columnCustomerID
2476             End Get
2477         End Property
2478         
2479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2481         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
2482             Get
2483                 Return Me.columnName
2484             End Get
2485         End Property
2486         
2487         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2488          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2489         Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
2490             Get
2491                 Return Me.columnGender
2492             End Get
2493         End Property
2494         
2495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2497         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
2498             Get
2499                 Return Me.columnAddress
2500             End Get
2501         End Property
2502         
2503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2505         Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
2506             Get
2507                 Return Me.columnCity
2508             End Get
2509         End Property
2510         
2511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2513         Public ReadOnly Property StateColumn() As Global.System.Data.DataColumn
2514             Get
2515                 Return Me.columnState
2516             End Get
2517         End Property
2518         
2519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2521         Public ReadOnly Property ZipCodeColumn() As Global.System.Data.DataColumn
2522             Get
2523                 Return Me.columnZipCode
2524             End Get
2525         End Property
2526         
2527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2529         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2530             Get
2531                 Return Me.columnContactNo
2532             End Get
2533         End Property
2534         
2535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2537         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
2538             Get
2539                 Return Me.columnEmailID
2540             End Get
2541         End Property
2542         
2543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2545         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
2546             Get
2547                 Return Me.columnRemarks
2548             End Get
2549         End Property
2550         
2551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2553         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
2554             Get
2555                 Return Me.columnPhoto
2556             End Get
2557         End Property
2558         
2559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2561          Global.System.ComponentModel.Browsable(false)> _
2562         Public ReadOnly Property Count() As Integer
2563             Get
2564                 Return Me.Rows.Count
2565             End Get
2566         End Property
2567         
2568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2570         Public Default ReadOnly Property Item(ByVal index As Integer) As CustomerRow
2571             Get
2572                 Return CType(Me.Rows(index),CustomerRow)
2573             End Get
2574         End Property
2575         
2576         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2577         Public Event CustomerRowChanging As CustomerRowChangeEventHandler
2578         
2579         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2580         Public Event CustomerRowChanged As CustomerRowChangeEventHandler
2581         
2582         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2583         Public Event CustomerRowDeleting As CustomerRowChangeEventHandler
2584         
2585         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2586         Public Event CustomerRowDeleted As CustomerRowChangeEventHandler
2587         
2588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2590         Public Overloads Sub AddCustomerRow(ByVal row As CustomerRow)
2591             Me.Rows.Add(row)
2592         End Sub
2593         
2594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2596         Public Overloads Function AddCustomerRow(ByVal ID As Integer, ByVal CustomerID As String, ByVal Name As String, ByVal Gender As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String, ByVal Photo() As Byte) As CustomerRow
2597             Dim rowCustomerRow As CustomerRow = CType(Me.NewRow,CustomerRow)
2598             Dim columnValuesArray() As Object = New Object() {ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Photo}
2599             rowCustomerRow.ItemArray = columnValuesArray
2600             Me.Rows.Add(rowCustomerRow)
2601             Return rowCustomerRow
2602         End Function
2603         
2604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2606         Public Function FindByID(ByVal ID As Integer) As CustomerRow
2607             Return CType(Me.Rows.Find(New Object() {ID}),CustomerRow)
2608         End Function
2609         
2610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2612         Public Overrides Function Clone() As Global.System.Data.DataTable
2613             Dim cln As CustomerDataTable = CType(MyBase.Clone,CustomerDataTable)
2614             cln.InitVars
2615             Return cln
2616         End Function
2617         
2618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2620         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2621             Return New CustomerDataTable()
2622         End Function
2623         
2624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2626         Friend Sub InitVars()
2627             Me.columnID = MyBase.Columns("ID")
2628             Me.columnCustomerID = MyBase.Columns("CustomerID")
2629             Me.columnName = MyBase.Columns("Name")
2630             Me.columnGender = MyBase.Columns("Gender")
2631             Me.columnAddress = MyBase.Columns("Address")
2632             Me.columnCity = MyBase.Columns("City")
2633             Me.columnState = MyBase.Columns("State")
2634             Me.columnZipCode = MyBase.Columns("ZipCode")
2635             Me.columnContactNo = MyBase.Columns("ContactNo")
2636             Me.columnEmailID = MyBase.Columns("EmailID")
2637             Me.columnRemarks = MyBase.Columns("Remarks")
2638             Me.columnPhoto = MyBase.Columns("Photo")
2639         End Sub
2640         
2641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2643         Private Sub InitClass()
2644             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2645             MyBase.Columns.Add(Me.columnID)
2646             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2647             MyBase.Columns.Add(Me.columnCustomerID)
2648             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2649             MyBase.Columns.Add(Me.columnName)
2650             Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2651             MyBase.Columns.Add(Me.columnGender)
2652             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2653             MyBase.Columns.Add(Me.columnAddress)
2654             Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2655             MyBase.Columns.Add(Me.columnCity)
2656             Me.columnState = New Global.System.Data.DataColumn("State", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2657             MyBase.Columns.Add(Me.columnState)
2658             Me.columnZipCode = New Global.System.Data.DataColumn("ZipCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2659             MyBase.Columns.Add(Me.columnZipCode)
2660             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2661             MyBase.Columns.Add(Me.columnContactNo)
2662             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2663             MyBase.Columns.Add(Me.columnEmailID)
2664             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2665             MyBase.Columns.Add(Me.columnRemarks)
2666             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
2667             MyBase.Columns.Add(Me.columnPhoto)
2668             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
2669             Me.columnID.AllowDBNull = false
2670             Me.columnID.Unique = true
2671             Me.columnCustomerID.AllowDBNull = false
2672             Me.columnCustomerID.MaxLength = 30
2673             Me.columnName.AllowDBNull = false
2674             Me.columnName.MaxLength = 200
2675             Me.columnGender.AllowDBNull = false
2676             Me.columnGender.MaxLength = 10
2677             Me.columnAddress.AllowDBNull = false
2678             Me.columnAddress.MaxLength = 250
2679             Me.columnCity.AllowDBNull = false
2680             Me.columnCity.MaxLength = 200
2681             Me.columnState.AllowDBNull = false
2682             Me.columnState.MaxLength = 150
2683             Me.columnZipCode.MaxLength = 15
2684             Me.columnContactNo.AllowDBNull = false
2685             Me.columnContactNo.MaxLength = 150
2686             Me.columnEmailID.MaxLength = 200
2687             Me.columnRemarks.MaxLength = 2147483647
2688             Me.columnPhoto.AllowDBNull = false
2689         End Sub
2690         
2691         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2692          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2693         Public Function NewCustomerRow() As CustomerRow
2694             Return CType(Me.NewRow,CustomerRow)
2695         End Function
2696         
2697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2699         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2700             Return New CustomerRow(builder)
2701         End Function
2702         
2703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2705         Protected Overrides Function GetRowType() As Global.System.Type
2706             Return GetType(CustomerRow)
2707         End Function
2708         
2709         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2710          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2711         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2712             MyBase.OnRowChanged(e)
2713             If (Not (Me.CustomerRowChangedEvent) Is Nothing) Then
2714                 RaiseEvent CustomerRowChanged(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2715             End If
2716         End Sub
2717         
2718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2720         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2721             MyBase.OnRowChanging(e)
2722             If (Not (Me.CustomerRowChangingEvent) Is Nothing) Then
2723                 RaiseEvent CustomerRowChanging(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2724             End If
2725         End Sub
2726         
2727         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2728          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2729         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2730             MyBase.OnRowDeleted(e)
2731             If (Not (Me.CustomerRowDeletedEvent) Is Nothing) Then
2732                 RaiseEvent CustomerRowDeleted(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2733             End If
2734         End Sub
2735         
2736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2738         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2739             MyBase.OnRowDeleting(e)
2740             If (Not (Me.CustomerRowDeletingEvent) Is Nothing) Then
2741                 RaiseEvent CustomerRowDeleting(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2742             End If
2743         End Sub
2744         
2745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2747         Public Sub RemoveCustomerRow(ByVal row As CustomerRow)
2748             Me.Rows.Remove(row)
2749         End Sub
2750         
2751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2753         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2754             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2755             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2756             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
2757             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2758             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2759             any1.MinOccurs = New Decimal(0)
2760             any1.MaxOccurs = Decimal.MaxValue
2761             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2762             sequence.Items.Add(any1)
2763             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2764             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2765             any2.MinOccurs = New Decimal(1)
2766             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2767             sequence.Items.Add(any2)
2768             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2769             attribute1.Name = "namespace"
2770             attribute1.FixedValue = ds.Namespace
2771             type.Attributes.Add(attribute1)
2772             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2773             attribute2.Name = "tableTypeName"
2774             attribute2.FixedValue = "CustomerDataTable"
2775             type.Attributes.Add(attribute2)
2776             type.Particle = sequence
2777             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2778             If xs.Contains(dsSchema.TargetNamespace) Then
2779                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2780                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2781                 Try
2782                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2783                     dsSchema.Write(s1)
2784                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2785                     Do While schemas.MoveNext
2786                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2787                         s2.SetLength(0)
2788                         schema.Write(s2)
2789                         If (s1.Length = s2.Length) Then
2790                             s1.Position = 0
2791                             s2.Position = 0
2792                             
2793                             Do While ((s1.Position <> s1.Length) _
2794                                         AndAlso (s1.ReadByte = s2.ReadByte))
2795                                 
2796                                 
2797                             Loop
2798                             If (s1.Position = s1.Length) Then
2799                                 Return type
2800                             End If
2801                         End If
2802                         
2803                     Loop
2804                 Finally
2805                     If (Not (s1) Is Nothing) Then
2806                         s1.Close
2807                     End If
2808                     If (Not (s2) Is Nothing) Then
2809                         s2.Close
2810                     End If
2811                 End Try
2812             End If
2813             xs.Add(dsSchema)
2814             Return type
2815         End Function
2816     End Class
2817     
2818     '''<summary>
2819     '''Represents the strongly named DataTable class.
2820     '''</summary>
2821     <Global.System.Serializable(), _
2822      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2823     Partial Public Class Invoice_PaymentDataTable
2824         Inherits Global.System.Data.TypedTableBase(Of Invoice_PaymentRow)
2825         
2826         Private columnIP_ID As Global.System.Data.DataColumn
2827         
2828         Private columnInvoiceID As Global.System.Data.DataColumn
2829         
2830         Private columnPaymentDate As Global.System.Data.DataColumn
2831         
2832         Private columnTotalPaid As Global.System.Data.DataColumn
2833         
2834         Private columnPaymentMode As Global.System.Data.DataColumn
2835         
2836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2838         Public Sub New()
2839             MyBase.New
2840             Me.TableName = "Invoice_Payment"
2841             Me.BeginInit
2842             Me.InitClass
2843             Me.EndInit
2844         End Sub
2845         
2846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2848         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2849             MyBase.New
2850             Me.TableName = table.TableName
2851             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2852                 Me.CaseSensitive = table.CaseSensitive
2853             End If
2854             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2855                 Me.Locale = table.Locale
2856             End If
2857             If (table.Namespace <> table.DataSet.Namespace) Then
2858                 Me.Namespace = table.Namespace
2859             End If
2860             Me.Prefix = table.Prefix
2861             Me.MinimumCapacity = table.MinimumCapacity
2862         End Sub
2863         
2864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2866         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2867             MyBase.New(info, context)
2868             Me.InitVars
2869         End Sub
2870         
2871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2873         Public ReadOnly Property IP_IDColumn() As Global.System.Data.DataColumn
2874             Get
2875                 Return Me.columnIP_ID
2876             End Get
2877         End Property
2878         
2879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2881         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
2882             Get
2883                 Return Me.columnInvoiceID
2884             End Get
2885         End Property
2886         
2887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2889         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
2890             Get
2891                 Return Me.columnPaymentDate
2892             End Get
2893         End Property
2894         
2895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2897         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
2898             Get
2899                 Return Me.columnTotalPaid
2900             End Get
2901         End Property
2902         
2903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2905         Public ReadOnly Property PaymentModeColumn() As Global.System.Data.DataColumn
2906             Get
2907                 Return Me.columnPaymentMode
2908             End Get
2909         End Property
2910         
2911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2913          Global.System.ComponentModel.Browsable(false)> _
2914         Public ReadOnly Property Count() As Integer
2915             Get
2916                 Return Me.Rows.Count
2917             End Get
2918         End Property
2919         
2920         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2921          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2922         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice_PaymentRow
2923             Get
2924                 Return CType(Me.Rows(index),Invoice_PaymentRow)
2925             End Get
2926         End Property
2927         
2928         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2929         Public Event Invoice_PaymentRowChanging As Invoice_PaymentRowChangeEventHandler
2930         
2931         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2932         Public Event Invoice_PaymentRowChanged As Invoice_PaymentRowChangeEventHandler
2933         
2934         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2935         Public Event Invoice_PaymentRowDeleting As Invoice_PaymentRowChangeEventHandler
2936         
2937         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2938         Public Event Invoice_PaymentRowDeleted As Invoice_PaymentRowChangeEventHandler
2939         
2940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2942         Public Overloads Sub AddInvoice_PaymentRow(ByVal row As Invoice_PaymentRow)
2943             Me.Rows.Add(row)
2944         End Sub
2945         
2946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2948         Public Overloads Function AddInvoice_PaymentRow(ByVal parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo As InvoiceInfoRow, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Invoice_PaymentRow
2949             Dim rowInvoice_PaymentRow As Invoice_PaymentRow = CType(Me.NewRow,Invoice_PaymentRow)
2950             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PaymentDate, TotalPaid, PaymentMode}
2951             If (Not (parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo) Is Nothing) Then
2952                 columnValuesArray(1) = parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo(0)
2953             End If
2954             rowInvoice_PaymentRow.ItemArray = columnValuesArray
2955             Me.Rows.Add(rowInvoice_PaymentRow)
2956             Return rowInvoice_PaymentRow
2957         End Function
2958         
2959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2961         Public Function FindByIP_ID(ByVal IP_ID As Integer) As Invoice_PaymentRow
2962             Return CType(Me.Rows.Find(New Object() {IP_ID}),Invoice_PaymentRow)
2963         End Function
2964         
2965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2967         Public Overrides Function Clone() As Global.System.Data.DataTable
2968             Dim cln As Invoice_PaymentDataTable = CType(MyBase.Clone,Invoice_PaymentDataTable)
2969             cln.InitVars
2970             Return cln
2971         End Function
2972         
2973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2975         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2976             Return New Invoice_PaymentDataTable()
2977         End Function
2978         
2979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2981         Friend Sub InitVars()
2982             Me.columnIP_ID = MyBase.Columns("IP_ID")
2983             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
2984             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
2985             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
2986             Me.columnPaymentMode = MyBase.Columns("PaymentMode")
2987         End Sub
2988         
2989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2991         Private Sub InitClass()
2992             Me.columnIP_ID = New Global.System.Data.DataColumn("IP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2993             MyBase.Columns.Add(Me.columnIP_ID)
2994             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2995             MyBase.Columns.Add(Me.columnInvoiceID)
2996             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2997             MyBase.Columns.Add(Me.columnPaymentDate)
2998             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
2999             MyBase.Columns.Add(Me.columnTotalPaid)
3000             Me.columnPaymentMode = New Global.System.Data.DataColumn("PaymentMode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3001             MyBase.Columns.Add(Me.columnPaymentMode)
3002             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIP_ID}, true))
3003             Me.columnIP_ID.AutoIncrement = true
3004             Me.columnIP_ID.AutoIncrementSeed = -1
3005             Me.columnIP_ID.AutoIncrementStep = -1
3006             Me.columnIP_ID.AllowDBNull = false
3007             Me.columnIP_ID.ReadOnly = true
3008             Me.columnIP_ID.Unique = true
3009             Me.columnInvoiceID.AllowDBNull = false
3010             Me.columnPaymentDate.AllowDBNull = false
3011             Me.columnTotalPaid.AllowDBNull = false
3012             Me.columnPaymentMode.AllowDBNull = false
3013             Me.columnPaymentMode.MaxLength = 150
3014         End Sub
3015         
3016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3018         Public Function NewInvoice_PaymentRow() As Invoice_PaymentRow
3019             Return CType(Me.NewRow,Invoice_PaymentRow)
3020         End Function
3021         
3022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3024         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3025             Return New Invoice_PaymentRow(builder)
3026         End Function
3027         
3028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3030         Protected Overrides Function GetRowType() As Global.System.Type
3031             Return GetType(Invoice_PaymentRow)
3032         End Function
3033         
3034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3036         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3037             MyBase.OnRowChanged(e)
3038             If (Not (Me.Invoice_PaymentRowChangedEvent) Is Nothing) Then
3039                 RaiseEvent Invoice_PaymentRowChanged(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3040             End If
3041         End Sub
3042         
3043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3045         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3046             MyBase.OnRowChanging(e)
3047             If (Not (Me.Invoice_PaymentRowChangingEvent) Is Nothing) Then
3048                 RaiseEvent Invoice_PaymentRowChanging(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3049             End If
3050         End Sub
3051         
3052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3054         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3055             MyBase.OnRowDeleted(e)
3056             If (Not (Me.Invoice_PaymentRowDeletedEvent) Is Nothing) Then
3057                 RaiseEvent Invoice_PaymentRowDeleted(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3058             End If
3059         End Sub
3060         
3061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3063         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3064             MyBase.OnRowDeleting(e)
3065             If (Not (Me.Invoice_PaymentRowDeletingEvent) Is Nothing) Then
3066                 RaiseEvent Invoice_PaymentRowDeleting(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3067             End If
3068         End Sub
3069         
3070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3072         Public Sub RemoveInvoice_PaymentRow(ByVal row As Invoice_PaymentRow)
3073             Me.Rows.Remove(row)
3074         End Sub
3075         
3076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3078         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3079             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3080             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3081             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
3082             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3083             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3084             any1.MinOccurs = New Decimal(0)
3085             any1.MaxOccurs = Decimal.MaxValue
3086             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3087             sequence.Items.Add(any1)
3088             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3089             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3090             any2.MinOccurs = New Decimal(1)
3091             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3092             sequence.Items.Add(any2)
3093             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3094             attribute1.Name = "namespace"
3095             attribute1.FixedValue = ds.Namespace
3096             type.Attributes.Add(attribute1)
3097             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3098             attribute2.Name = "tableTypeName"
3099             attribute2.FixedValue = "Invoice_PaymentDataTable"
3100             type.Attributes.Add(attribute2)
3101             type.Particle = sequence
3102             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3103             If xs.Contains(dsSchema.TargetNamespace) Then
3104                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3105                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3106                 Try
3107                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3108                     dsSchema.Write(s1)
3109                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3110                     Do While schemas.MoveNext
3111                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3112                         s2.SetLength(0)
3113                         schema.Write(s2)
3114                         If (s1.Length = s2.Length) Then
3115                             s1.Position = 0
3116                             s2.Position = 0
3117                             
3118                             Do While ((s1.Position <> s1.Length) _
3119                                         AndAlso (s1.ReadByte = s2.ReadByte))
3120                                 
3121                                 
3122                             Loop
3123                             If (s1.Position = s1.Length) Then
3124                                 Return type
3125                             End If
3126                         End If
3127                         
3128                     Loop
3129                 Finally
3130                     If (Not (s1) Is Nothing) Then
3131                         s1.Close
3132                     End If
3133                     If (Not (s2) Is Nothing) Then
3134                         s2.Close
3135                     End If
3136                 End Try
3137             End If
3138             xs.Add(dsSchema)
3139             Return type
3140         End Function
3141     End Class
3142     
3143     '''<summary>
3144     '''Represents the strongly named DataTable class.
3145     '''</summary>
3146     <Global.System.Serializable(), _
3147      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3148     Partial Public Class Invoice_ProductDataTable
3149         Inherits Global.System.Data.TypedTableBase(Of Invoice_ProductRow)
3150         
3151         Private columnIPo_ID As Global.System.Data.DataColumn
3152         
3153         Private columnInvoiceID As Global.System.Data.DataColumn
3154         
3155         Private columnProductID As Global.System.Data.DataColumn
3156         
3157         Private columnCostPrice As Global.System.Data.DataColumn
3158         
3159         Private columnSellingPrice As Global.System.Data.DataColumn
3160         
3161         Private columnMargin As Global.System.Data.DataColumn
3162         
3163         Private columnQty As Global.System.Data.DataColumn
3164         
3165         Private columnAmount As Global.System.Data.DataColumn
3166         
3167         Private columnDiscountPer As Global.System.Data.DataColumn
3168         
3169         Private columnDiscount As Global.System.Data.DataColumn
3170         
3171         Private columnVATPer As Global.System.Data.DataColumn
3172         
3173         Private columnVAT As Global.System.Data.DataColumn
3174         
3175         Private columnTotalAmount As Global.System.Data.DataColumn
3176         
3177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3179         Public Sub New()
3180             MyBase.New
3181             Me.TableName = "Invoice_Product"
3182             Me.BeginInit
3183             Me.InitClass
3184             Me.EndInit
3185         End Sub
3186         
3187         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3188          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3189         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3190             MyBase.New
3191             Me.TableName = table.TableName
3192             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3193                 Me.CaseSensitive = table.CaseSensitive
3194             End If
3195             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3196                 Me.Locale = table.Locale
3197             End If
3198             If (table.Namespace <> table.DataSet.Namespace) Then
3199                 Me.Namespace = table.Namespace
3200             End If
3201             Me.Prefix = table.Prefix
3202             Me.MinimumCapacity = table.MinimumCapacity
3203         End Sub
3204         
3205         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3206          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3207         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3208             MyBase.New(info, context)
3209             Me.InitVars
3210         End Sub
3211         
3212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3214         Public ReadOnly Property IPo_IDColumn() As Global.System.Data.DataColumn
3215             Get
3216                 Return Me.columnIPo_ID
3217             End Get
3218         End Property
3219         
3220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3222         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
3223             Get
3224                 Return Me.columnInvoiceID
3225             End Get
3226         End Property
3227         
3228         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3229          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3230         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
3231             Get
3232                 Return Me.columnProductID
3233             End Get
3234         End Property
3235         
3236         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3237          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3238         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
3239             Get
3240                 Return Me.columnCostPrice
3241             End Get
3242         End Property
3243         
3244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3246         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
3247             Get
3248                 Return Me.columnSellingPrice
3249             End Get
3250         End Property
3251         
3252         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3253          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3254         Public ReadOnly Property MarginColumn() As Global.System.Data.DataColumn
3255             Get
3256                 Return Me.columnMargin
3257             End Get
3258         End Property
3259         
3260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3262         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
3263             Get
3264                 Return Me.columnQty
3265             End Get
3266         End Property
3267         
3268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3270         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
3271             Get
3272                 Return Me.columnAmount
3273             End Get
3274         End Property
3275         
3276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3278         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
3279             Get
3280                 Return Me.columnDiscountPer
3281             End Get
3282         End Property
3283         
3284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3286         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
3287             Get
3288                 Return Me.columnDiscount
3289             End Get
3290         End Property
3291         
3292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3294         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
3295             Get
3296                 Return Me.columnVATPer
3297             End Get
3298         End Property
3299         
3300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3302         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
3303             Get
3304                 Return Me.columnVAT
3305             End Get
3306         End Property
3307         
3308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3310         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
3311             Get
3312                 Return Me.columnTotalAmount
3313             End Get
3314         End Property
3315         
3316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3318          Global.System.ComponentModel.Browsable(false)> _
3319         Public ReadOnly Property Count() As Integer
3320             Get
3321                 Return Me.Rows.Count
3322             End Get
3323         End Property
3324         
3325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3327         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice_ProductRow
3328             Get
3329                 Return CType(Me.Rows(index),Invoice_ProductRow)
3330             End Get
3331         End Property
3332         
3333         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3334         Public Event Invoice_ProductRowChanging As Invoice_ProductRowChangeEventHandler
3335         
3336         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3337         Public Event Invoice_ProductRowChanged As Invoice_ProductRowChangeEventHandler
3338         
3339         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3340         Public Event Invoice_ProductRowDeleting As Invoice_ProductRowChangeEventHandler
3341         
3342         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3343         Public Event Invoice_ProductRowDeleted As Invoice_ProductRowChangeEventHandler
3344         
3345         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3346          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3347         Public Overloads Sub AddInvoice_ProductRow(ByVal row As Invoice_ProductRow)
3348             Me.Rows.Add(row)
3349         End Sub
3350         
3351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3353         Public Overloads Function AddInvoice_ProductRow(ByVal parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo As InvoiceInfoRow, ByVal parentProductRowByFK_Invoice_Product_Product As ProductRow, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Invoice_ProductRow
3354             Dim rowInvoice_ProductRow As Invoice_ProductRow = CType(Me.NewRow,Invoice_ProductRow)
3355             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
3356             If (Not (parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo) Is Nothing) Then
3357                 columnValuesArray(1) = parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo(0)
3358             End If
3359             If (Not (parentProductRowByFK_Invoice_Product_Product) Is Nothing) Then
3360                 columnValuesArray(2) = parentProductRowByFK_Invoice_Product_Product(0)
3361             End If
3362             rowInvoice_ProductRow.ItemArray = columnValuesArray
3363             Me.Rows.Add(rowInvoice_ProductRow)
3364             Return rowInvoice_ProductRow
3365         End Function
3366         
3367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3369         Public Function FindByIPo_ID(ByVal IPo_ID As Integer) As Invoice_ProductRow
3370             Return CType(Me.Rows.Find(New Object() {IPo_ID}),Invoice_ProductRow)
3371         End Function
3372         
3373         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3374          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3375         Public Overrides Function Clone() As Global.System.Data.DataTable
3376             Dim cln As Invoice_ProductDataTable = CType(MyBase.Clone,Invoice_ProductDataTable)
3377             cln.InitVars
3378             Return cln
3379         End Function
3380         
3381         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3382          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3383         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3384             Return New Invoice_ProductDataTable()
3385         End Function
3386         
3387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3389         Friend Sub InitVars()
3390             Me.columnIPo_ID = MyBase.Columns("IPo_ID")
3391             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
3392             Me.columnProductID = MyBase.Columns("ProductID")
3393             Me.columnCostPrice = MyBase.Columns("CostPrice")
3394             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
3395             Me.columnMargin = MyBase.Columns("Margin")
3396             Me.columnQty = MyBase.Columns("Qty")
3397             Me.columnAmount = MyBase.Columns("Amount")
3398             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
3399             Me.columnDiscount = MyBase.Columns("Discount")
3400             Me.columnVATPer = MyBase.Columns("VATPer")
3401             Me.columnVAT = MyBase.Columns("VAT")
3402             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
3403         End Sub
3404         
3405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3407         Private Sub InitClass()
3408             Me.columnIPo_ID = New Global.System.Data.DataColumn("IPo_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3409             MyBase.Columns.Add(Me.columnIPo_ID)
3410             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3411             MyBase.Columns.Add(Me.columnInvoiceID)
3412             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3413             MyBase.Columns.Add(Me.columnProductID)
3414             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3415             MyBase.Columns.Add(Me.columnCostPrice)
3416             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3417             MyBase.Columns.Add(Me.columnSellingPrice)
3418             Me.columnMargin = New Global.System.Data.DataColumn("Margin", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3419             MyBase.Columns.Add(Me.columnMargin)
3420             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3421             MyBase.Columns.Add(Me.columnQty)
3422             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3423             MyBase.Columns.Add(Me.columnAmount)
3424             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3425             MyBase.Columns.Add(Me.columnDiscountPer)
3426             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3427             MyBase.Columns.Add(Me.columnDiscount)
3428             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3429             MyBase.Columns.Add(Me.columnVATPer)
3430             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3431             MyBase.Columns.Add(Me.columnVAT)
3432             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3433             MyBase.Columns.Add(Me.columnTotalAmount)
3434             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIPo_ID}, true))
3435             Me.columnIPo_ID.AutoIncrement = true
3436             Me.columnIPo_ID.AutoIncrementSeed = -1
3437             Me.columnIPo_ID.AutoIncrementStep = -1
3438             Me.columnIPo_ID.AllowDBNull = false
3439             Me.columnIPo_ID.ReadOnly = true
3440             Me.columnIPo_ID.Unique = true
3441             Me.columnInvoiceID.AllowDBNull = false
3442             Me.columnProductID.AllowDBNull = false
3443             Me.columnCostPrice.AllowDBNull = false
3444             Me.columnSellingPrice.AllowDBNull = false
3445             Me.columnMargin.AllowDBNull = false
3446             Me.columnQty.AllowDBNull = false
3447             Me.columnAmount.AllowDBNull = false
3448             Me.columnDiscountPer.AllowDBNull = false
3449             Me.columnDiscount.AllowDBNull = false
3450             Me.columnVATPer.AllowDBNull = false
3451             Me.columnVAT.AllowDBNull = false
3452             Me.columnTotalAmount.AllowDBNull = false
3453         End Sub
3454         
3455         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3456          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3457         Public Function NewInvoice_ProductRow() As Invoice_ProductRow
3458             Return CType(Me.NewRow,Invoice_ProductRow)
3459         End Function
3460         
3461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3463         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3464             Return New Invoice_ProductRow(builder)
3465         End Function
3466         
3467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3469         Protected Overrides Function GetRowType() As Global.System.Type
3470             Return GetType(Invoice_ProductRow)
3471         End Function
3472         
3473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3475         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3476             MyBase.OnRowChanged(e)
3477             If (Not (Me.Invoice_ProductRowChangedEvent) Is Nothing) Then
3478                 RaiseEvent Invoice_ProductRowChanged(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3479             End If
3480         End Sub
3481         
3482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3484         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3485             MyBase.OnRowChanging(e)
3486             If (Not (Me.Invoice_ProductRowChangingEvent) Is Nothing) Then
3487                 RaiseEvent Invoice_ProductRowChanging(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3488             End If
3489         End Sub
3490         
3491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3493         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3494             MyBase.OnRowDeleted(e)
3495             If (Not (Me.Invoice_ProductRowDeletedEvent) Is Nothing) Then
3496                 RaiseEvent Invoice_ProductRowDeleted(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3497             End If
3498         End Sub
3499         
3500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3502         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3503             MyBase.OnRowDeleting(e)
3504             If (Not (Me.Invoice_ProductRowDeletingEvent) Is Nothing) Then
3505                 RaiseEvent Invoice_ProductRowDeleting(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3506             End If
3507         End Sub
3508         
3509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3511         Public Sub RemoveInvoice_ProductRow(ByVal row As Invoice_ProductRow)
3512             Me.Rows.Remove(row)
3513         End Sub
3514         
3515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3517         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3518             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3519             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3520             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
3521             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3522             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3523             any1.MinOccurs = New Decimal(0)
3524             any1.MaxOccurs = Decimal.MaxValue
3525             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3526             sequence.Items.Add(any1)
3527             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3528             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3529             any2.MinOccurs = New Decimal(1)
3530             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3531             sequence.Items.Add(any2)
3532             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3533             attribute1.Name = "namespace"
3534             attribute1.FixedValue = ds.Namespace
3535             type.Attributes.Add(attribute1)
3536             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3537             attribute2.Name = "tableTypeName"
3538             attribute2.FixedValue = "Invoice_ProductDataTable"
3539             type.Attributes.Add(attribute2)
3540             type.Particle = sequence
3541             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3542             If xs.Contains(dsSchema.TargetNamespace) Then
3543                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3544                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3545                 Try
3546                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3547                     dsSchema.Write(s1)
3548                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3549                     Do While schemas.MoveNext
3550                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3551                         s2.SetLength(0)
3552                         schema.Write(s2)
3553                         If (s1.Length = s2.Length) Then
3554                             s1.Position = 0
3555                             s2.Position = 0
3556                             
3557                             Do While ((s1.Position <> s1.Length) _
3558                                         AndAlso (s1.ReadByte = s2.ReadByte))
3559                                 
3560                                 
3561                             Loop
3562                             If (s1.Position = s1.Length) Then
3563                                 Return type
3564                             End If
3565                         End If
3566                         
3567                     Loop
3568                 Finally
3569                     If (Not (s1) Is Nothing) Then
3570                         s1.Close
3571                     End If
3572                     If (Not (s2) Is Nothing) Then
3573                         s2.Close
3574                     End If
3575                 End Try
3576             End If
3577             xs.Add(dsSchema)
3578             Return type
3579         End Function
3580     End Class
3581     
3582     '''<summary>
3583     '''Represents the strongly named DataTable class.
3584     '''</summary>
3585     <Global.System.Serializable(), _
3586      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3587     Partial Public Class Invoice1_PaymentDataTable
3588         Inherits Global.System.Data.TypedTableBase(Of Invoice1_PaymentRow)
3589         
3590         Private columnIP_ID As Global.System.Data.DataColumn
3591         
3592         Private columnInvoiceID As Global.System.Data.DataColumn
3593         
3594         Private columnPaymentDate As Global.System.Data.DataColumn
3595         
3596         Private columnTotalPaid As Global.System.Data.DataColumn
3597         
3598         Private columnPaymentMode As Global.System.Data.DataColumn
3599         
3600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3602         Public Sub New()
3603             MyBase.New
3604             Me.TableName = "Invoice1_Payment"
3605             Me.BeginInit
3606             Me.InitClass
3607             Me.EndInit
3608         End Sub
3609         
3610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3612         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3613             MyBase.New
3614             Me.TableName = table.TableName
3615             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3616                 Me.CaseSensitive = table.CaseSensitive
3617             End If
3618             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3619                 Me.Locale = table.Locale
3620             End If
3621             If (table.Namespace <> table.DataSet.Namespace) Then
3622                 Me.Namespace = table.Namespace
3623             End If
3624             Me.Prefix = table.Prefix
3625             Me.MinimumCapacity = table.MinimumCapacity
3626         End Sub
3627         
3628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3630         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3631             MyBase.New(info, context)
3632             Me.InitVars
3633         End Sub
3634         
3635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3637         Public ReadOnly Property IP_IDColumn() As Global.System.Data.DataColumn
3638             Get
3639                 Return Me.columnIP_ID
3640             End Get
3641         End Property
3642         
3643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3645         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
3646             Get
3647                 Return Me.columnInvoiceID
3648             End Get
3649         End Property
3650         
3651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3653         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
3654             Get
3655                 Return Me.columnPaymentDate
3656             End Get
3657         End Property
3658         
3659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3661         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
3662             Get
3663                 Return Me.columnTotalPaid
3664             End Get
3665         End Property
3666         
3667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3669         Public ReadOnly Property PaymentModeColumn() As Global.System.Data.DataColumn
3670             Get
3671                 Return Me.columnPaymentMode
3672             End Get
3673         End Property
3674         
3675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3677          Global.System.ComponentModel.Browsable(false)> _
3678         Public ReadOnly Property Count() As Integer
3679             Get
3680                 Return Me.Rows.Count
3681             End Get
3682         End Property
3683         
3684         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3685          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3686         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice1_PaymentRow
3687             Get
3688                 Return CType(Me.Rows(index),Invoice1_PaymentRow)
3689             End Get
3690         End Property
3691         
3692         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3693         Public Event Invoice1_PaymentRowChanging As Invoice1_PaymentRowChangeEventHandler
3694         
3695         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3696         Public Event Invoice1_PaymentRowChanged As Invoice1_PaymentRowChangeEventHandler
3697         
3698         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3699         Public Event Invoice1_PaymentRowDeleting As Invoice1_PaymentRowChangeEventHandler
3700         
3701         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3702         Public Event Invoice1_PaymentRowDeleted As Invoice1_PaymentRowChangeEventHandler
3703         
3704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3706         Public Overloads Sub AddInvoice1_PaymentRow(ByVal row As Invoice1_PaymentRow)
3707             Me.Rows.Add(row)
3708         End Sub
3709         
3710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3712         Public Overloads Function AddInvoice1_PaymentRow(ByVal parentInvoiceInfo1RowByFK_Invoice1_Payment_InvoiceInfo1 As InvoiceInfo1Row, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Invoice1_PaymentRow
3713             Dim rowInvoice1_PaymentRow As Invoice1_PaymentRow = CType(Me.NewRow,Invoice1_PaymentRow)
3714             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PaymentDate, TotalPaid, PaymentMode}
3715             If (Not (parentInvoiceInfo1RowByFK_Invoice1_Payment_InvoiceInfo1) Is Nothing) Then
3716                 columnValuesArray(1) = parentInvoiceInfo1RowByFK_Invoice1_Payment_InvoiceInfo1(0)
3717             End If
3718             rowInvoice1_PaymentRow.ItemArray = columnValuesArray
3719             Me.Rows.Add(rowInvoice1_PaymentRow)
3720             Return rowInvoice1_PaymentRow
3721         End Function
3722         
3723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3725         Public Function FindByIP_ID(ByVal IP_ID As Integer) As Invoice1_PaymentRow
3726             Return CType(Me.Rows.Find(New Object() {IP_ID}),Invoice1_PaymentRow)
3727         End Function
3728         
3729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3731         Public Overrides Function Clone() As Global.System.Data.DataTable
3732             Dim cln As Invoice1_PaymentDataTable = CType(MyBase.Clone,Invoice1_PaymentDataTable)
3733             cln.InitVars
3734             Return cln
3735         End Function
3736         
3737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3739         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3740             Return New Invoice1_PaymentDataTable()
3741         End Function
3742         
3743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3745         Friend Sub InitVars()
3746             Me.columnIP_ID = MyBase.Columns("IP_ID")
3747             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
3748             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
3749             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
3750             Me.columnPaymentMode = MyBase.Columns("PaymentMode")
3751         End Sub
3752         
3753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3755         Private Sub InitClass()
3756             Me.columnIP_ID = New Global.System.Data.DataColumn("IP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3757             MyBase.Columns.Add(Me.columnIP_ID)
3758             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3759             MyBase.Columns.Add(Me.columnInvoiceID)
3760             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3761             MyBase.Columns.Add(Me.columnPaymentDate)
3762             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3763             MyBase.Columns.Add(Me.columnTotalPaid)
3764             Me.columnPaymentMode = New Global.System.Data.DataColumn("PaymentMode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3765             MyBase.Columns.Add(Me.columnPaymentMode)
3766             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIP_ID}, true))
3767             Me.columnIP_ID.AutoIncrement = true
3768             Me.columnIP_ID.AutoIncrementSeed = -1
3769             Me.columnIP_ID.AutoIncrementStep = -1
3770             Me.columnIP_ID.AllowDBNull = false
3771             Me.columnIP_ID.ReadOnly = true
3772             Me.columnIP_ID.Unique = true
3773             Me.columnInvoiceID.AllowDBNull = false
3774             Me.columnPaymentDate.AllowDBNull = false
3775             Me.columnTotalPaid.AllowDBNull = false
3776             Me.columnPaymentMode.AllowDBNull = false
3777             Me.columnPaymentMode.MaxLength = 150
3778         End Sub
3779         
3780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3782         Public Function NewInvoice1_PaymentRow() As Invoice1_PaymentRow
3783             Return CType(Me.NewRow,Invoice1_PaymentRow)
3784         End Function
3785         
3786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3788         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3789             Return New Invoice1_PaymentRow(builder)
3790         End Function
3791         
3792         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3793          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3794         Protected Overrides Function GetRowType() As Global.System.Type
3795             Return GetType(Invoice1_PaymentRow)
3796         End Function
3797         
3798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3800         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3801             MyBase.OnRowChanged(e)
3802             If (Not (Me.Invoice1_PaymentRowChangedEvent) Is Nothing) Then
3803                 RaiseEvent Invoice1_PaymentRowChanged(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3804             End If
3805         End Sub
3806         
3807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3809         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3810             MyBase.OnRowChanging(e)
3811             If (Not (Me.Invoice1_PaymentRowChangingEvent) Is Nothing) Then
3812                 RaiseEvent Invoice1_PaymentRowChanging(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3813             End If
3814         End Sub
3815         
3816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3818         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3819             MyBase.OnRowDeleted(e)
3820             If (Not (Me.Invoice1_PaymentRowDeletedEvent) Is Nothing) Then
3821                 RaiseEvent Invoice1_PaymentRowDeleted(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3822             End If
3823         End Sub
3824         
3825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3827         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3828             MyBase.OnRowDeleting(e)
3829             If (Not (Me.Invoice1_PaymentRowDeletingEvent) Is Nothing) Then
3830                 RaiseEvent Invoice1_PaymentRowDeleting(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3831             End If
3832         End Sub
3833         
3834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3836         Public Sub RemoveInvoice1_PaymentRow(ByVal row As Invoice1_PaymentRow)
3837             Me.Rows.Remove(row)
3838         End Sub
3839         
3840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3842         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3843             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3844             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3845             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
3846             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3847             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3848             any1.MinOccurs = New Decimal(0)
3849             any1.MaxOccurs = Decimal.MaxValue
3850             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3851             sequence.Items.Add(any1)
3852             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3853             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3854             any2.MinOccurs = New Decimal(1)
3855             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3856             sequence.Items.Add(any2)
3857             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3858             attribute1.Name = "namespace"
3859             attribute1.FixedValue = ds.Namespace
3860             type.Attributes.Add(attribute1)
3861             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3862             attribute2.Name = "tableTypeName"
3863             attribute2.FixedValue = "Invoice1_PaymentDataTable"
3864             type.Attributes.Add(attribute2)
3865             type.Particle = sequence
3866             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3867             If xs.Contains(dsSchema.TargetNamespace) Then
3868                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3869                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3870                 Try
3871                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3872                     dsSchema.Write(s1)
3873                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3874                     Do While schemas.MoveNext
3875                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3876                         s2.SetLength(0)
3877                         schema.Write(s2)
3878                         If (s1.Length = s2.Length) Then
3879                             s1.Position = 0
3880                             s2.Position = 0
3881                             
3882                             Do While ((s1.Position <> s1.Length) _
3883                                         AndAlso (s1.ReadByte = s2.ReadByte))
3884                                 
3885                                 
3886                             Loop
3887                             If (s1.Position = s1.Length) Then
3888                                 Return type
3889                             End If
3890                         End If
3891                         
3892                     Loop
3893                 Finally
3894                     If (Not (s1) Is Nothing) Then
3895                         s1.Close
3896                     End If
3897                     If (Not (s2) Is Nothing) Then
3898                         s2.Close
3899                     End If
3900                 End Try
3901             End If
3902             xs.Add(dsSchema)
3903             Return type
3904         End Function
3905     End Class
3906     
3907     '''<summary>
3908     '''Represents the strongly named DataTable class.
3909     '''</summary>
3910     <Global.System.Serializable(), _
3911      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3912     Partial Public Class Invoice1_ProductDataTable
3913         Inherits Global.System.Data.TypedTableBase(Of Invoice1_ProductRow)
3914         
3915         Private columnIpo_ID As Global.System.Data.DataColumn
3916         
3917         Private columnInvoiceID As Global.System.Data.DataColumn
3918         
3919         Private columnProductID As Global.System.Data.DataColumn
3920         
3921         Private columnCostPrice As Global.System.Data.DataColumn
3922         
3923         Private columnSellingPrice As Global.System.Data.DataColumn
3924         
3925         Private columnMargin As Global.System.Data.DataColumn
3926         
3927         Private columnQty As Global.System.Data.DataColumn
3928         
3929         Private columnAmount As Global.System.Data.DataColumn
3930         
3931         Private columnDiscountPer As Global.System.Data.DataColumn
3932         
3933         Private columnDiscount As Global.System.Data.DataColumn
3934         
3935         Private columnVATPer As Global.System.Data.DataColumn
3936         
3937         Private columnVAT As Global.System.Data.DataColumn
3938         
3939         Private columnTotalAmount As Global.System.Data.DataColumn
3940         
3941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3943         Public Sub New()
3944             MyBase.New
3945             Me.TableName = "Invoice1_Product"
3946             Me.BeginInit
3947             Me.InitClass
3948             Me.EndInit
3949         End Sub
3950         
3951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3953         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3954             MyBase.New
3955             Me.TableName = table.TableName
3956             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3957                 Me.CaseSensitive = table.CaseSensitive
3958             End If
3959             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3960                 Me.Locale = table.Locale
3961             End If
3962             If (table.Namespace <> table.DataSet.Namespace) Then
3963                 Me.Namespace = table.Namespace
3964             End If
3965             Me.Prefix = table.Prefix
3966             Me.MinimumCapacity = table.MinimumCapacity
3967         End Sub
3968         
3969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3971         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3972             MyBase.New(info, context)
3973             Me.InitVars
3974         End Sub
3975         
3976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3978         Public ReadOnly Property Ipo_IDColumn() As Global.System.Data.DataColumn
3979             Get
3980                 Return Me.columnIpo_ID
3981             End Get
3982         End Property
3983         
3984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3986         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
3987             Get
3988                 Return Me.columnInvoiceID
3989             End Get
3990         End Property
3991         
3992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3994         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
3995             Get
3996                 Return Me.columnProductID
3997             End Get
3998         End Property
3999         
4000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4002         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
4003             Get
4004                 Return Me.columnCostPrice
4005             End Get
4006         End Property
4007         
4008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4010         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
4011             Get
4012                 Return Me.columnSellingPrice
4013             End Get
4014         End Property
4015         
4016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4018         Public ReadOnly Property MarginColumn() As Global.System.Data.DataColumn
4019             Get
4020                 Return Me.columnMargin
4021             End Get
4022         End Property
4023         
4024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4026         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
4027             Get
4028                 Return Me.columnQty
4029             End Get
4030         End Property
4031         
4032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4034         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
4035             Get
4036                 Return Me.columnAmount
4037             End Get
4038         End Property
4039         
4040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4042         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
4043             Get
4044                 Return Me.columnDiscountPer
4045             End Get
4046         End Property
4047         
4048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4050         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
4051             Get
4052                 Return Me.columnDiscount
4053             End Get
4054         End Property
4055         
4056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4058         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
4059             Get
4060                 Return Me.columnVATPer
4061             End Get
4062         End Property
4063         
4064         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4065          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4066         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
4067             Get
4068                 Return Me.columnVAT
4069             End Get
4070         End Property
4071         
4072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4074         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
4075             Get
4076                 Return Me.columnTotalAmount
4077             End Get
4078         End Property
4079         
4080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4082          Global.System.ComponentModel.Browsable(false)> _
4083         Public ReadOnly Property Count() As Integer
4084             Get
4085                 Return Me.Rows.Count
4086             End Get
4087         End Property
4088         
4089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4091         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice1_ProductRow
4092             Get
4093                 Return CType(Me.Rows(index),Invoice1_ProductRow)
4094             End Get
4095         End Property
4096         
4097         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4098         Public Event Invoice1_ProductRowChanging As Invoice1_ProductRowChangeEventHandler
4099         
4100         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4101         Public Event Invoice1_ProductRowChanged As Invoice1_ProductRowChangeEventHandler
4102         
4103         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4104         Public Event Invoice1_ProductRowDeleting As Invoice1_ProductRowChangeEventHandler
4105         
4106         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4107         Public Event Invoice1_ProductRowDeleted As Invoice1_ProductRowChangeEventHandler
4108         
4109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4111         Public Overloads Sub AddInvoice1_ProductRow(ByVal row As Invoice1_ProductRow)
4112             Me.Rows.Add(row)
4113         End Sub
4114         
4115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4117         Public Overloads Function AddInvoice1_ProductRow(ByVal parentInvoiceInfo1RowByFK_Invoice1_Product_InvoiceInfo1 As InvoiceInfo1Row, ByVal parentProductRowByFK_Invoice1_Product_Product As ProductRow, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Invoice1_ProductRow
4118             Dim rowInvoice1_ProductRow As Invoice1_ProductRow = CType(Me.NewRow,Invoice1_ProductRow)
4119             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
4120             If (Not (parentInvoiceInfo1RowByFK_Invoice1_Product_InvoiceInfo1) Is Nothing) Then
4121                 columnValuesArray(1) = parentInvoiceInfo1RowByFK_Invoice1_Product_InvoiceInfo1(0)
4122             End If
4123             If (Not (parentProductRowByFK_Invoice1_Product_Product) Is Nothing) Then
4124                 columnValuesArray(2) = parentProductRowByFK_Invoice1_Product_Product(0)
4125             End If
4126             rowInvoice1_ProductRow.ItemArray = columnValuesArray
4127             Me.Rows.Add(rowInvoice1_ProductRow)
4128             Return rowInvoice1_ProductRow
4129         End Function
4130         
4131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4133         Public Function FindByIpo_ID(ByVal Ipo_ID As Integer) As Invoice1_ProductRow
4134             Return CType(Me.Rows.Find(New Object() {Ipo_ID}),Invoice1_ProductRow)
4135         End Function
4136         
4137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4139         Public Overrides Function Clone() As Global.System.Data.DataTable
4140             Dim cln As Invoice1_ProductDataTable = CType(MyBase.Clone,Invoice1_ProductDataTable)
4141             cln.InitVars
4142             Return cln
4143         End Function
4144         
4145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4147         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4148             Return New Invoice1_ProductDataTable()
4149         End Function
4150         
4151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4153         Friend Sub InitVars()
4154             Me.columnIpo_ID = MyBase.Columns("Ipo_ID")
4155             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
4156             Me.columnProductID = MyBase.Columns("ProductID")
4157             Me.columnCostPrice = MyBase.Columns("CostPrice")
4158             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
4159             Me.columnMargin = MyBase.Columns("Margin")
4160             Me.columnQty = MyBase.Columns("Qty")
4161             Me.columnAmount = MyBase.Columns("Amount")
4162             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
4163             Me.columnDiscount = MyBase.Columns("Discount")
4164             Me.columnVATPer = MyBase.Columns("VATPer")
4165             Me.columnVAT = MyBase.Columns("VAT")
4166             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
4167         End Sub
4168         
4169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4171         Private Sub InitClass()
4172             Me.columnIpo_ID = New Global.System.Data.DataColumn("Ipo_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4173             MyBase.Columns.Add(Me.columnIpo_ID)
4174             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4175             MyBase.Columns.Add(Me.columnInvoiceID)
4176             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4177             MyBase.Columns.Add(Me.columnProductID)
4178             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4179             MyBase.Columns.Add(Me.columnCostPrice)
4180             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4181             MyBase.Columns.Add(Me.columnSellingPrice)
4182             Me.columnMargin = New Global.System.Data.DataColumn("Margin", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4183             MyBase.Columns.Add(Me.columnMargin)
4184             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4185             MyBase.Columns.Add(Me.columnQty)
4186             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4187             MyBase.Columns.Add(Me.columnAmount)
4188             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4189             MyBase.Columns.Add(Me.columnDiscountPer)
4190             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4191             MyBase.Columns.Add(Me.columnDiscount)
4192             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4193             MyBase.Columns.Add(Me.columnVATPer)
4194             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4195             MyBase.Columns.Add(Me.columnVAT)
4196             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4197             MyBase.Columns.Add(Me.columnTotalAmount)
4198             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIpo_ID}, true))
4199             Me.columnIpo_ID.AutoIncrement = true
4200             Me.columnIpo_ID.AutoIncrementSeed = -1
4201             Me.columnIpo_ID.AutoIncrementStep = -1
4202             Me.columnIpo_ID.AllowDBNull = false
4203             Me.columnIpo_ID.ReadOnly = true
4204             Me.columnIpo_ID.Unique = true
4205             Me.columnInvoiceID.AllowDBNull = false
4206             Me.columnProductID.AllowDBNull = false
4207             Me.columnCostPrice.AllowDBNull = false
4208             Me.columnSellingPrice.AllowDBNull = false
4209             Me.columnMargin.AllowDBNull = false
4210             Me.columnQty.AllowDBNull = false
4211             Me.columnAmount.AllowDBNull = false
4212             Me.columnDiscountPer.AllowDBNull = false
4213             Me.columnDiscount.AllowDBNull = false
4214             Me.columnVATPer.AllowDBNull = false
4215             Me.columnVAT.AllowDBNull = false
4216             Me.columnTotalAmount.AllowDBNull = false
4217         End Sub
4218         
4219         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4220          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4221         Public Function NewInvoice1_ProductRow() As Invoice1_ProductRow
4222             Return CType(Me.NewRow,Invoice1_ProductRow)
4223         End Function
4224         
4225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4227         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4228             Return New Invoice1_ProductRow(builder)
4229         End Function
4230         
4231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4233         Protected Overrides Function GetRowType() As Global.System.Type
4234             Return GetType(Invoice1_ProductRow)
4235         End Function
4236         
4237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4239         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4240             MyBase.OnRowChanged(e)
4241             If (Not (Me.Invoice1_ProductRowChangedEvent) Is Nothing) Then
4242                 RaiseEvent Invoice1_ProductRowChanged(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4243             End If
4244         End Sub
4245         
4246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4248         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4249             MyBase.OnRowChanging(e)
4250             If (Not (Me.Invoice1_ProductRowChangingEvent) Is Nothing) Then
4251                 RaiseEvent Invoice1_ProductRowChanging(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4252             End If
4253         End Sub
4254         
4255         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4256          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4257         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4258             MyBase.OnRowDeleted(e)
4259             If (Not (Me.Invoice1_ProductRowDeletedEvent) Is Nothing) Then
4260                 RaiseEvent Invoice1_ProductRowDeleted(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4261             End If
4262         End Sub
4263         
4264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4266         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4267             MyBase.OnRowDeleting(e)
4268             If (Not (Me.Invoice1_ProductRowDeletingEvent) Is Nothing) Then
4269                 RaiseEvent Invoice1_ProductRowDeleting(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4270             End If
4271         End Sub
4272         
4273         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4274          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4275         Public Sub RemoveInvoice1_ProductRow(ByVal row As Invoice1_ProductRow)
4276             Me.Rows.Remove(row)
4277         End Sub
4278         
4279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4281         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4282             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4283             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4284             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
4285             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4286             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4287             any1.MinOccurs = New Decimal(0)
4288             any1.MaxOccurs = Decimal.MaxValue
4289             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4290             sequence.Items.Add(any1)
4291             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4292             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4293             any2.MinOccurs = New Decimal(1)
4294             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4295             sequence.Items.Add(any2)
4296             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4297             attribute1.Name = "namespace"
4298             attribute1.FixedValue = ds.Namespace
4299             type.Attributes.Add(attribute1)
4300             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4301             attribute2.Name = "tableTypeName"
4302             attribute2.FixedValue = "Invoice1_ProductDataTable"
4303             type.Attributes.Add(attribute2)
4304             type.Particle = sequence
4305             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4306             If xs.Contains(dsSchema.TargetNamespace) Then
4307                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4308                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4309                 Try
4310                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4311                     dsSchema.Write(s1)
4312                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4313                     Do While schemas.MoveNext
4314                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4315                         s2.SetLength(0)
4316                         schema.Write(s2)
4317                         If (s1.Length = s2.Length) Then
4318                             s1.Position = 0
4319                             s2.Position = 0
4320                             
4321                             Do While ((s1.Position <> s1.Length) _
4322                                         AndAlso (s1.ReadByte = s2.ReadByte))
4323                                 
4324                                 
4325                             Loop
4326                             If (s1.Position = s1.Length) Then
4327                                 Return type
4328                             End If
4329                         End If
4330                         
4331                     Loop
4332                 Finally
4333                     If (Not (s1) Is Nothing) Then
4334                         s1.Close
4335                     End If
4336                     If (Not (s2) Is Nothing) Then
4337                         s2.Close
4338                     End If
4339                 End Try
4340             End If
4341             xs.Add(dsSchema)
4342             Return type
4343         End Function
4344     End Class
4345     
4346     '''<summary>
4347     '''Represents the strongly named DataTable class.
4348     '''</summary>
4349     <Global.System.Serializable(), _
4350      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4351     Partial Public Class InvoiceInfoDataTable
4352         Inherits Global.System.Data.TypedTableBase(Of InvoiceInfoRow)
4353         
4354         Private columnInv_ID As Global.System.Data.DataColumn
4355         
4356         Private columnInvoiceNo As Global.System.Data.DataColumn
4357         
4358         Private columnInvoiceDate As Global.System.Data.DataColumn
4359         
4360         Private columnCustomerID As Global.System.Data.DataColumn
4361         
4362         Private columnGrandTotal As Global.System.Data.DataColumn
4363         
4364         Private columnTotalPaid As Global.System.Data.DataColumn
4365         
4366         Private columnBalance As Global.System.Data.DataColumn
4367         
4368         Private columnRemarks As Global.System.Data.DataColumn
4369         
4370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4372         Public Sub New()
4373             MyBase.New
4374             Me.TableName = "InvoiceInfo"
4375             Me.BeginInit
4376             Me.InitClass
4377             Me.EndInit
4378         End Sub
4379         
4380         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4381          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4382         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4383             MyBase.New
4384             Me.TableName = table.TableName
4385             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4386                 Me.CaseSensitive = table.CaseSensitive
4387             End If
4388             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4389                 Me.Locale = table.Locale
4390             End If
4391             If (table.Namespace <> table.DataSet.Namespace) Then
4392                 Me.Namespace = table.Namespace
4393             End If
4394             Me.Prefix = table.Prefix
4395             Me.MinimumCapacity = table.MinimumCapacity
4396         End Sub
4397         
4398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4400         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4401             MyBase.New(info, context)
4402             Me.InitVars
4403         End Sub
4404         
4405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4407         Public ReadOnly Property Inv_IDColumn() As Global.System.Data.DataColumn
4408             Get
4409                 Return Me.columnInv_ID
4410             End Get
4411         End Property
4412         
4413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4415         Public ReadOnly Property InvoiceNoColumn() As Global.System.Data.DataColumn
4416             Get
4417                 Return Me.columnInvoiceNo
4418             End Get
4419         End Property
4420         
4421         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4422          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4423         Public ReadOnly Property InvoiceDateColumn() As Global.System.Data.DataColumn
4424             Get
4425                 Return Me.columnInvoiceDate
4426             End Get
4427         End Property
4428         
4429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4431         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
4432             Get
4433                 Return Me.columnCustomerID
4434             End Get
4435         End Property
4436         
4437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4439         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
4440             Get
4441                 Return Me.columnGrandTotal
4442             End Get
4443         End Property
4444         
4445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4447         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
4448             Get
4449                 Return Me.columnTotalPaid
4450             End Get
4451         End Property
4452         
4453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4455         Public ReadOnly Property BalanceColumn() As Global.System.Data.DataColumn
4456             Get
4457                 Return Me.columnBalance
4458             End Get
4459         End Property
4460         
4461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4463         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
4464             Get
4465                 Return Me.columnRemarks
4466             End Get
4467         End Property
4468         
4469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4471          Global.System.ComponentModel.Browsable(false)> _
4472         Public ReadOnly Property Count() As Integer
4473             Get
4474                 Return Me.Rows.Count
4475             End Get
4476         End Property
4477         
4478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4480         Public Default ReadOnly Property Item(ByVal index As Integer) As InvoiceInfoRow
4481             Get
4482                 Return CType(Me.Rows(index),InvoiceInfoRow)
4483             End Get
4484         End Property
4485         
4486         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4487         Public Event InvoiceInfoRowChanging As InvoiceInfoRowChangeEventHandler
4488         
4489         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4490         Public Event InvoiceInfoRowChanged As InvoiceInfoRowChangeEventHandler
4491         
4492         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4493         Public Event InvoiceInfoRowDeleting As InvoiceInfoRowChangeEventHandler
4494         
4495         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4496         Public Event InvoiceInfoRowDeleted As InvoiceInfoRowChangeEventHandler
4497         
4498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4500         Public Overloads Sub AddInvoiceInfoRow(ByVal row As InvoiceInfoRow)
4501             Me.Rows.Add(row)
4502         End Sub
4503         
4504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4506         Public Overloads Function AddInvoiceInfoRow(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal parentCustomerRowByFK_InvoiceInfo_Customer As CustomerRow, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As InvoiceInfoRow
4507             Dim rowInvoiceInfoRow As InvoiceInfoRow = CType(Me.NewRow,InvoiceInfoRow)
4508             Dim columnValuesArray() As Object = New Object() {Inv_ID, InvoiceNo, InvoiceDate, Nothing, GrandTotal, TotalPaid, Balance, Remarks}
4509             If (Not (parentCustomerRowByFK_InvoiceInfo_Customer) Is Nothing) Then
4510                 columnValuesArray(3) = parentCustomerRowByFK_InvoiceInfo_Customer(0)
4511             End If
4512             rowInvoiceInfoRow.ItemArray = columnValuesArray
4513             Me.Rows.Add(rowInvoiceInfoRow)
4514             Return rowInvoiceInfoRow
4515         End Function
4516         
4517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4519         Public Function FindByInv_ID(ByVal Inv_ID As Integer) As InvoiceInfoRow
4520             Return CType(Me.Rows.Find(New Object() {Inv_ID}),InvoiceInfoRow)
4521         End Function
4522         
4523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4525         Public Overrides Function Clone() As Global.System.Data.DataTable
4526             Dim cln As InvoiceInfoDataTable = CType(MyBase.Clone,InvoiceInfoDataTable)
4527             cln.InitVars
4528             Return cln
4529         End Function
4530         
4531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4533         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4534             Return New InvoiceInfoDataTable()
4535         End Function
4536         
4537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4539         Friend Sub InitVars()
4540             Me.columnInv_ID = MyBase.Columns("Inv_ID")
4541             Me.columnInvoiceNo = MyBase.Columns("InvoiceNo")
4542             Me.columnInvoiceDate = MyBase.Columns("InvoiceDate")
4543             Me.columnCustomerID = MyBase.Columns("CustomerID")
4544             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
4545             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
4546             Me.columnBalance = MyBase.Columns("Balance")
4547             Me.columnRemarks = MyBase.Columns("Remarks")
4548         End Sub
4549         
4550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4552         Private Sub InitClass()
4553             Me.columnInv_ID = New Global.System.Data.DataColumn("Inv_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4554             MyBase.Columns.Add(Me.columnInv_ID)
4555             Me.columnInvoiceNo = New Global.System.Data.DataColumn("InvoiceNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4556             MyBase.Columns.Add(Me.columnInvoiceNo)
4557             Me.columnInvoiceDate = New Global.System.Data.DataColumn("InvoiceDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
4558             MyBase.Columns.Add(Me.columnInvoiceDate)
4559             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4560             MyBase.Columns.Add(Me.columnCustomerID)
4561             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4562             MyBase.Columns.Add(Me.columnGrandTotal)
4563             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4564             MyBase.Columns.Add(Me.columnTotalPaid)
4565             Me.columnBalance = New Global.System.Data.DataColumn("Balance", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4566             MyBase.Columns.Add(Me.columnBalance)
4567             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4568             MyBase.Columns.Add(Me.columnRemarks)
4569             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnInv_ID}, true))
4570             Me.columnInv_ID.AllowDBNull = false
4571             Me.columnInv_ID.Unique = true
4572             Me.columnInvoiceNo.AllowDBNull = false
4573             Me.columnInvoiceNo.MaxLength = 30
4574             Me.columnInvoiceDate.AllowDBNull = false
4575             Me.columnCustomerID.AllowDBNull = false
4576             Me.columnGrandTotal.AllowDBNull = false
4577             Me.columnTotalPaid.AllowDBNull = false
4578             Me.columnBalance.AllowDBNull = false
4579             Me.columnRemarks.MaxLength = 2147483647
4580         End Sub
4581         
4582         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4583          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4584         Public Function NewInvoiceInfoRow() As InvoiceInfoRow
4585             Return CType(Me.NewRow,InvoiceInfoRow)
4586         End Function
4587         
4588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4590         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4591             Return New InvoiceInfoRow(builder)
4592         End Function
4593         
4594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4596         Protected Overrides Function GetRowType() As Global.System.Type
4597             Return GetType(InvoiceInfoRow)
4598         End Function
4599         
4600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4602         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4603             MyBase.OnRowChanged(e)
4604             If (Not (Me.InvoiceInfoRowChangedEvent) Is Nothing) Then
4605                 RaiseEvent InvoiceInfoRowChanged(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4606             End If
4607         End Sub
4608         
4609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4611         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4612             MyBase.OnRowChanging(e)
4613             If (Not (Me.InvoiceInfoRowChangingEvent) Is Nothing) Then
4614                 RaiseEvent InvoiceInfoRowChanging(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4615             End If
4616         End Sub
4617         
4618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4620         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4621             MyBase.OnRowDeleted(e)
4622             If (Not (Me.InvoiceInfoRowDeletedEvent) Is Nothing) Then
4623                 RaiseEvent InvoiceInfoRowDeleted(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4624             End If
4625         End Sub
4626         
4627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4629         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4630             MyBase.OnRowDeleting(e)
4631             If (Not (Me.InvoiceInfoRowDeletingEvent) Is Nothing) Then
4632                 RaiseEvent InvoiceInfoRowDeleting(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4633             End If
4634         End Sub
4635         
4636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4638         Public Sub RemoveInvoiceInfoRow(ByVal row As InvoiceInfoRow)
4639             Me.Rows.Remove(row)
4640         End Sub
4641         
4642         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4643          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4644         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4645             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4646             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4647             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
4648             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4649             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4650             any1.MinOccurs = New Decimal(0)
4651             any1.MaxOccurs = Decimal.MaxValue
4652             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4653             sequence.Items.Add(any1)
4654             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4655             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4656             any2.MinOccurs = New Decimal(1)
4657             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4658             sequence.Items.Add(any2)
4659             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4660             attribute1.Name = "namespace"
4661             attribute1.FixedValue = ds.Namespace
4662             type.Attributes.Add(attribute1)
4663             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4664             attribute2.Name = "tableTypeName"
4665             attribute2.FixedValue = "InvoiceInfoDataTable"
4666             type.Attributes.Add(attribute2)
4667             type.Particle = sequence
4668             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4669             If xs.Contains(dsSchema.TargetNamespace) Then
4670                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4671                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4672                 Try
4673                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4674                     dsSchema.Write(s1)
4675                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4676                     Do While schemas.MoveNext
4677                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4678                         s2.SetLength(0)
4679                         schema.Write(s2)
4680                         If (s1.Length = s2.Length) Then
4681                             s1.Position = 0
4682                             s2.Position = 0
4683                             
4684                             Do While ((s1.Position <> s1.Length) _
4685                                         AndAlso (s1.ReadByte = s2.ReadByte))
4686                                 
4687                                 
4688                             Loop
4689                             If (s1.Position = s1.Length) Then
4690                                 Return type
4691                             End If
4692                         End If
4693                         
4694                     Loop
4695                 Finally
4696                     If (Not (s1) Is Nothing) Then
4697                         s1.Close
4698                     End If
4699                     If (Not (s2) Is Nothing) Then
4700                         s2.Close
4701                     End If
4702                 End Try
4703             End If
4704             xs.Add(dsSchema)
4705             Return type
4706         End Function
4707     End Class
4708     
4709     '''<summary>
4710     '''Represents the strongly named DataTable class.
4711     '''</summary>
4712     <Global.System.Serializable(), _
4713      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4714     Partial Public Class InvoiceInfo1DataTable
4715         Inherits Global.System.Data.TypedTableBase(Of InvoiceInfo1Row)
4716         
4717         Private columnInv_ID As Global.System.Data.DataColumn
4718         
4719         Private columnInvoiceNo As Global.System.Data.DataColumn
4720         
4721         Private columnInvoiceDate As Global.System.Data.DataColumn
4722         
4723         Private columnServiceID As Global.System.Data.DataColumn
4724         
4725         Private columnRepairCharges As Global.System.Data.DataColumn
4726         
4727         Private columnUpfront As Global.System.Data.DataColumn
4728         
4729         Private columnProductCharges As Global.System.Data.DataColumn
4730         
4731         Private columnServiceTaxPer As Global.System.Data.DataColumn
4732         
4733         Private columnServiceTax As Global.System.Data.DataColumn
4734         
4735         Private columnGrandTotal As Global.System.Data.DataColumn
4736         
4737         Private columnTotalPaid As Global.System.Data.DataColumn
4738         
4739         Private columnBalance As Global.System.Data.DataColumn
4740         
4741         Private columnRemarks As Global.System.Data.DataColumn
4742         
4743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4745         Public Sub New()
4746             MyBase.New
4747             Me.TableName = "InvoiceInfo1"
4748             Me.BeginInit
4749             Me.InitClass
4750             Me.EndInit
4751         End Sub
4752         
4753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4755         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4756             MyBase.New
4757             Me.TableName = table.TableName
4758             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4759                 Me.CaseSensitive = table.CaseSensitive
4760             End If
4761             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4762                 Me.Locale = table.Locale
4763             End If
4764             If (table.Namespace <> table.DataSet.Namespace) Then
4765                 Me.Namespace = table.Namespace
4766             End If
4767             Me.Prefix = table.Prefix
4768             Me.MinimumCapacity = table.MinimumCapacity
4769         End Sub
4770         
4771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4773         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4774             MyBase.New(info, context)
4775             Me.InitVars
4776         End Sub
4777         
4778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4780         Public ReadOnly Property Inv_IDColumn() As Global.System.Data.DataColumn
4781             Get
4782                 Return Me.columnInv_ID
4783             End Get
4784         End Property
4785         
4786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4788         Public ReadOnly Property InvoiceNoColumn() As Global.System.Data.DataColumn
4789             Get
4790                 Return Me.columnInvoiceNo
4791             End Get
4792         End Property
4793         
4794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4796         Public ReadOnly Property InvoiceDateColumn() As Global.System.Data.DataColumn
4797             Get
4798                 Return Me.columnInvoiceDate
4799             End Get
4800         End Property
4801         
4802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4804         Public ReadOnly Property ServiceIDColumn() As Global.System.Data.DataColumn
4805             Get
4806                 Return Me.columnServiceID
4807             End Get
4808         End Property
4809         
4810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4812         Public ReadOnly Property RepairChargesColumn() As Global.System.Data.DataColumn
4813             Get
4814                 Return Me.columnRepairCharges
4815             End Get
4816         End Property
4817         
4818         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4819          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4820         Public ReadOnly Property UpfrontColumn() As Global.System.Data.DataColumn
4821             Get
4822                 Return Me.columnUpfront
4823             End Get
4824         End Property
4825         
4826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4828         Public ReadOnly Property ProductChargesColumn() As Global.System.Data.DataColumn
4829             Get
4830                 Return Me.columnProductCharges
4831             End Get
4832         End Property
4833         
4834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4836         Public ReadOnly Property ServiceTaxPerColumn() As Global.System.Data.DataColumn
4837             Get
4838                 Return Me.columnServiceTaxPer
4839             End Get
4840         End Property
4841         
4842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4844         Public ReadOnly Property ServiceTaxColumn() As Global.System.Data.DataColumn
4845             Get
4846                 Return Me.columnServiceTax
4847             End Get
4848         End Property
4849         
4850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4852         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
4853             Get
4854                 Return Me.columnGrandTotal
4855             End Get
4856         End Property
4857         
4858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4860         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
4861             Get
4862                 Return Me.columnTotalPaid
4863             End Get
4864         End Property
4865         
4866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4868         Public ReadOnly Property BalanceColumn() As Global.System.Data.DataColumn
4869             Get
4870                 Return Me.columnBalance
4871             End Get
4872         End Property
4873         
4874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4876         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
4877             Get
4878                 Return Me.columnRemarks
4879             End Get
4880         End Property
4881         
4882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4884          Global.System.ComponentModel.Browsable(false)> _
4885         Public ReadOnly Property Count() As Integer
4886             Get
4887                 Return Me.Rows.Count
4888             End Get
4889         End Property
4890         
4891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4893         Public Default ReadOnly Property Item(ByVal index As Integer) As InvoiceInfo1Row
4894             Get
4895                 Return CType(Me.Rows(index),InvoiceInfo1Row)
4896             End Get
4897         End Property
4898         
4899         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4900         Public Event InvoiceInfo1RowChanging As InvoiceInfo1RowChangeEventHandler
4901         
4902         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4903         Public Event InvoiceInfo1RowChanged As InvoiceInfo1RowChangeEventHandler
4904         
4905         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4906         Public Event InvoiceInfo1RowDeleting As InvoiceInfo1RowChangeEventHandler
4907         
4908         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4909         Public Event InvoiceInfo1RowDeleted As InvoiceInfo1RowChangeEventHandler
4910         
4911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4913         Public Overloads Sub AddInvoiceInfo1Row(ByVal row As InvoiceInfo1Row)
4914             Me.Rows.Add(row)
4915         End Sub
4916         
4917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4919         Public Overloads Function AddInvoiceInfo1Row(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal parentServiceRowByFK_InvoiceInfo1_Service As ServiceRow, ByVal RepairCharges As Decimal, ByVal Upfront As Decimal, ByVal ProductCharges As Decimal, ByVal ServiceTaxPer As Decimal, ByVal ServiceTax As Decimal, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As InvoiceInfo1Row
4920             Dim rowInvoiceInfo1Row As InvoiceInfo1Row = CType(Me.NewRow,InvoiceInfo1Row)
4921             Dim columnValuesArray() As Object = New Object() {Inv_ID, InvoiceNo, InvoiceDate, Nothing, RepairCharges, Upfront, ProductCharges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks}
4922             If (Not (parentServiceRowByFK_InvoiceInfo1_Service) Is Nothing) Then
4923                 columnValuesArray(3) = parentServiceRowByFK_InvoiceInfo1_Service(0)
4924             End If
4925             rowInvoiceInfo1Row.ItemArray = columnValuesArray
4926             Me.Rows.Add(rowInvoiceInfo1Row)
4927             Return rowInvoiceInfo1Row
4928         End Function
4929         
4930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4932         Public Function FindByInv_ID(ByVal Inv_ID As Integer) As InvoiceInfo1Row
4933             Return CType(Me.Rows.Find(New Object() {Inv_ID}),InvoiceInfo1Row)
4934         End Function
4935         
4936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4938         Public Overrides Function Clone() As Global.System.Data.DataTable
4939             Dim cln As InvoiceInfo1DataTable = CType(MyBase.Clone,InvoiceInfo1DataTable)
4940             cln.InitVars
4941             Return cln
4942         End Function
4943         
4944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4946         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4947             Return New InvoiceInfo1DataTable()
4948         End Function
4949         
4950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4952         Friend Sub InitVars()
4953             Me.columnInv_ID = MyBase.Columns("Inv_ID")
4954             Me.columnInvoiceNo = MyBase.Columns("InvoiceNo")
4955             Me.columnInvoiceDate = MyBase.Columns("InvoiceDate")
4956             Me.columnServiceID = MyBase.Columns("ServiceID")
4957             Me.columnRepairCharges = MyBase.Columns("RepairCharges")
4958             Me.columnUpfront = MyBase.Columns("Upfront")
4959             Me.columnProductCharges = MyBase.Columns("ProductCharges")
4960             Me.columnServiceTaxPer = MyBase.Columns("ServiceTaxPer")
4961             Me.columnServiceTax = MyBase.Columns("ServiceTax")
4962             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
4963             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
4964             Me.columnBalance = MyBase.Columns("Balance")
4965             Me.columnRemarks = MyBase.Columns("Remarks")
4966         End Sub
4967         
4968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4970         Private Sub InitClass()
4971             Me.columnInv_ID = New Global.System.Data.DataColumn("Inv_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4972             MyBase.Columns.Add(Me.columnInv_ID)
4973             Me.columnInvoiceNo = New Global.System.Data.DataColumn("InvoiceNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4974             MyBase.Columns.Add(Me.columnInvoiceNo)
4975             Me.columnInvoiceDate = New Global.System.Data.DataColumn("InvoiceDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
4976             MyBase.Columns.Add(Me.columnInvoiceDate)
4977             Me.columnServiceID = New Global.System.Data.DataColumn("ServiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4978             MyBase.Columns.Add(Me.columnServiceID)
4979             Me.columnRepairCharges = New Global.System.Data.DataColumn("RepairCharges", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4980             MyBase.Columns.Add(Me.columnRepairCharges)
4981             Me.columnUpfront = New Global.System.Data.DataColumn("Upfront", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4982             MyBase.Columns.Add(Me.columnUpfront)
4983             Me.columnProductCharges = New Global.System.Data.DataColumn("ProductCharges", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4984             MyBase.Columns.Add(Me.columnProductCharges)
4985             Me.columnServiceTaxPer = New Global.System.Data.DataColumn("ServiceTaxPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4986             MyBase.Columns.Add(Me.columnServiceTaxPer)
4987             Me.columnServiceTax = New Global.System.Data.DataColumn("ServiceTax", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4988             MyBase.Columns.Add(Me.columnServiceTax)
4989             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4990             MyBase.Columns.Add(Me.columnGrandTotal)
4991             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4992             MyBase.Columns.Add(Me.columnTotalPaid)
4993             Me.columnBalance = New Global.System.Data.DataColumn("Balance", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4994             MyBase.Columns.Add(Me.columnBalance)
4995             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4996             MyBase.Columns.Add(Me.columnRemarks)
4997             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnInv_ID}, true))
4998             Me.columnInv_ID.AllowDBNull = false
4999             Me.columnInv_ID.Unique = true
5000             Me.columnInvoiceNo.AllowDBNull = false
5001             Me.columnInvoiceNo.MaxLength = 30
5002             Me.columnInvoiceDate.AllowDBNull = false
5003             Me.columnServiceID.AllowDBNull = false
5004             Me.columnRepairCharges.AllowDBNull = false
5005             Me.columnUpfront.AllowDBNull = false
5006             Me.columnProductCharges.AllowDBNull = false
5007             Me.columnServiceTaxPer.AllowDBNull = false
5008             Me.columnServiceTax.AllowDBNull = false
5009             Me.columnGrandTotal.AllowDBNull = false
5010             Me.columnTotalPaid.AllowDBNull = false
5011             Me.columnBalance.AllowDBNull = false
5012             Me.columnRemarks.MaxLength = 2147483647
5013         End Sub
5014         
5015         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5016          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5017         Public Function NewInvoiceInfo1Row() As InvoiceInfo1Row
5018             Return CType(Me.NewRow,InvoiceInfo1Row)
5019         End Function
5020         
5021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5023         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5024             Return New InvoiceInfo1Row(builder)
5025         End Function
5026         
5027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5029         Protected Overrides Function GetRowType() As Global.System.Type
5030             Return GetType(InvoiceInfo1Row)
5031         End Function
5032         
5033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5035         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5036             MyBase.OnRowChanged(e)
5037             If (Not (Me.InvoiceInfo1RowChangedEvent) Is Nothing) Then
5038                 RaiseEvent InvoiceInfo1RowChanged(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5039             End If
5040         End Sub
5041         
5042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5044         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5045             MyBase.OnRowChanging(e)
5046             If (Not (Me.InvoiceInfo1RowChangingEvent) Is Nothing) Then
5047                 RaiseEvent InvoiceInfo1RowChanging(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5048             End If
5049         End Sub
5050         
5051         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5052          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5053         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5054             MyBase.OnRowDeleted(e)
5055             If (Not (Me.InvoiceInfo1RowDeletedEvent) Is Nothing) Then
5056                 RaiseEvent InvoiceInfo1RowDeleted(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5057             End If
5058         End Sub
5059         
5060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5062         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5063             MyBase.OnRowDeleting(e)
5064             If (Not (Me.InvoiceInfo1RowDeletingEvent) Is Nothing) Then
5065                 RaiseEvent InvoiceInfo1RowDeleting(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5066             End If
5067         End Sub
5068         
5069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5071         Public Sub RemoveInvoiceInfo1Row(ByVal row As InvoiceInfo1Row)
5072             Me.Rows.Remove(row)
5073         End Sub
5074         
5075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5077         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5078             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5079             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5080             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
5081             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5082             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5083             any1.MinOccurs = New Decimal(0)
5084             any1.MaxOccurs = Decimal.MaxValue
5085             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5086             sequence.Items.Add(any1)
5087             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5088             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5089             any2.MinOccurs = New Decimal(1)
5090             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5091             sequence.Items.Add(any2)
5092             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5093             attribute1.Name = "namespace"
5094             attribute1.FixedValue = ds.Namespace
5095             type.Attributes.Add(attribute1)
5096             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5097             attribute2.Name = "tableTypeName"
5098             attribute2.FixedValue = "InvoiceInfo1DataTable"
5099             type.Attributes.Add(attribute2)
5100             type.Particle = sequence
5101             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5102             If xs.Contains(dsSchema.TargetNamespace) Then
5103                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5104                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5105                 Try
5106                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5107                     dsSchema.Write(s1)
5108                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5109                     Do While schemas.MoveNext
5110                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5111                         s2.SetLength(0)
5112                         schema.Write(s2)
5113                         If (s1.Length = s2.Length) Then
5114                             s1.Position = 0
5115                             s2.Position = 0
5116                             
5117                             Do While ((s1.Position <> s1.Length) _
5118                                         AndAlso (s1.ReadByte = s2.ReadByte))
5119                                 
5120                                 
5121                             Loop
5122                             If (s1.Position = s1.Length) Then
5123                                 Return type
5124                             End If
5125                         End If
5126                         
5127                     Loop
5128                 Finally
5129                     If (Not (s1) Is Nothing) Then
5130                         s1.Close
5131                     End If
5132                     If (Not (s2) Is Nothing) Then
5133                         s2.Close
5134                     End If
5135                 End Try
5136             End If
5137             xs.Add(dsSchema)
5138             Return type
5139         End Function
5140     End Class
5141     
5142     '''<summary>
5143     '''Represents the strongly named DataTable class.
5144     '''</summary>
5145     <Global.System.Serializable(), _
5146      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5147     Partial Public Class LogsDataTable
5148         Inherits Global.System.Data.TypedTableBase(Of LogsRow)
5149         
5150         Private columnID As Global.System.Data.DataColumn
5151         
5152         Private columnUserID As Global.System.Data.DataColumn
5153         
5154         Private columnOperation As Global.System.Data.DataColumn
5155         
5156         Private columnDate As Global.System.Data.DataColumn
5157         
5158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5160         Public Sub New()
5161             MyBase.New
5162             Me.TableName = "Logs"
5163             Me.BeginInit
5164             Me.InitClass
5165             Me.EndInit
5166         End Sub
5167         
5168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5170         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5171             MyBase.New
5172             Me.TableName = table.TableName
5173             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5174                 Me.CaseSensitive = table.CaseSensitive
5175             End If
5176             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5177                 Me.Locale = table.Locale
5178             End If
5179             If (table.Namespace <> table.DataSet.Namespace) Then
5180                 Me.Namespace = table.Namespace
5181             End If
5182             Me.Prefix = table.Prefix
5183             Me.MinimumCapacity = table.MinimumCapacity
5184         End Sub
5185         
5186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5188         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5189             MyBase.New(info, context)
5190             Me.InitVars
5191         End Sub
5192         
5193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5195         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
5196             Get
5197                 Return Me.columnID
5198             End Get
5199         End Property
5200         
5201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5203         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
5204             Get
5205                 Return Me.columnUserID
5206             End Get
5207         End Property
5208         
5209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5211         Public ReadOnly Property OperationColumn() As Global.System.Data.DataColumn
5212             Get
5213                 Return Me.columnOperation
5214             End Get
5215         End Property
5216         
5217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5219         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
5220             Get
5221                 Return Me.columnDate
5222             End Get
5223         End Property
5224         
5225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5227          Global.System.ComponentModel.Browsable(false)> _
5228         Public ReadOnly Property Count() As Integer
5229             Get
5230                 Return Me.Rows.Count
5231             End Get
5232         End Property
5233         
5234         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5235          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5236         Public Default ReadOnly Property Item(ByVal index As Integer) As LogsRow
5237             Get
5238                 Return CType(Me.Rows(index),LogsRow)
5239             End Get
5240         End Property
5241         
5242         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5243         Public Event LogsRowChanging As LogsRowChangeEventHandler
5244         
5245         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5246         Public Event LogsRowChanged As LogsRowChangeEventHandler
5247         
5248         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5249         Public Event LogsRowDeleting As LogsRowChangeEventHandler
5250         
5251         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5252         Public Event LogsRowDeleted As LogsRowChangeEventHandler
5253         
5254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5256         Public Overloads Sub AddLogsRow(ByVal row As LogsRow)
5257             Me.Rows.Add(row)
5258         End Sub
5259         
5260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5262         Public Overloads Function AddLogsRow(ByVal parentRegistrationRowByFK_Logs_Registration As RegistrationRow, ByVal Operation As String, ByVal _Date As Date) As LogsRow
5263             Dim rowLogsRow As LogsRow = CType(Me.NewRow,LogsRow)
5264             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Operation, _Date}
5265             If (Not (parentRegistrationRowByFK_Logs_Registration) Is Nothing) Then
5266                 columnValuesArray(1) = parentRegistrationRowByFK_Logs_Registration(0)
5267             End If
5268             rowLogsRow.ItemArray = columnValuesArray
5269             Me.Rows.Add(rowLogsRow)
5270             Return rowLogsRow
5271         End Function
5272         
5273         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5274          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5275         Public Function FindByID(ByVal ID As Integer) As LogsRow
5276             Return CType(Me.Rows.Find(New Object() {ID}),LogsRow)
5277         End Function
5278         
5279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5281         Public Overrides Function Clone() As Global.System.Data.DataTable
5282             Dim cln As LogsDataTable = CType(MyBase.Clone,LogsDataTable)
5283             cln.InitVars
5284             Return cln
5285         End Function
5286         
5287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5289         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5290             Return New LogsDataTable()
5291         End Function
5292         
5293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5295         Friend Sub InitVars()
5296             Me.columnID = MyBase.Columns("ID")
5297             Me.columnUserID = MyBase.Columns("UserID")
5298             Me.columnOperation = MyBase.Columns("Operation")
5299             Me.columnDate = MyBase.Columns("Date")
5300         End Sub
5301         
5302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5304         Private Sub InitClass()
5305             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5306             MyBase.Columns.Add(Me.columnID)
5307             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5308             MyBase.Columns.Add(Me.columnUserID)
5309             Me.columnOperation = New Global.System.Data.DataColumn("Operation", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5310             MyBase.Columns.Add(Me.columnOperation)
5311             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
5312             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
5313             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
5314             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
5315             MyBase.Columns.Add(Me.columnDate)
5316             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
5317             Me.columnID.AutoIncrement = true
5318             Me.columnID.AutoIncrementSeed = -1
5319             Me.columnID.AutoIncrementStep = -1
5320             Me.columnID.AllowDBNull = false
5321             Me.columnID.ReadOnly = true
5322             Me.columnID.Unique = true
5323             Me.columnUserID.AllowDBNull = false
5324             Me.columnUserID.MaxLength = 100
5325             Me.columnOperation.AllowDBNull = false
5326             Me.columnOperation.MaxLength = 2147483647
5327             Me.columnDate.AllowDBNull = false
5328         End Sub
5329         
5330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5332         Public Function NewLogsRow() As LogsRow
5333             Return CType(Me.NewRow,LogsRow)
5334         End Function
5335         
5336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5338         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5339             Return New LogsRow(builder)
5340         End Function
5341         
5342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5344         Protected Overrides Function GetRowType() As Global.System.Type
5345             Return GetType(LogsRow)
5346         End Function
5347         
5348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5350         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5351             MyBase.OnRowChanged(e)
5352             If (Not (Me.LogsRowChangedEvent) Is Nothing) Then
5353                 RaiseEvent LogsRowChanged(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5354             End If
5355         End Sub
5356         
5357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5359         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5360             MyBase.OnRowChanging(e)
5361             If (Not (Me.LogsRowChangingEvent) Is Nothing) Then
5362                 RaiseEvent LogsRowChanging(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5363             End If
5364         End Sub
5365         
5366         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5367          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5368         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5369             MyBase.OnRowDeleted(e)
5370             If (Not (Me.LogsRowDeletedEvent) Is Nothing) Then
5371                 RaiseEvent LogsRowDeleted(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5372             End If
5373         End Sub
5374         
5375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5377         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5378             MyBase.OnRowDeleting(e)
5379             If (Not (Me.LogsRowDeletingEvent) Is Nothing) Then
5380                 RaiseEvent LogsRowDeleting(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5381             End If
5382         End Sub
5383         
5384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5386         Public Sub RemoveLogsRow(ByVal row As LogsRow)
5387             Me.Rows.Remove(row)
5388         End Sub
5389         
5390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5392         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5393             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5394             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5395             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
5396             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5397             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5398             any1.MinOccurs = New Decimal(0)
5399             any1.MaxOccurs = Decimal.MaxValue
5400             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5401             sequence.Items.Add(any1)
5402             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5403             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5404             any2.MinOccurs = New Decimal(1)
5405             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5406             sequence.Items.Add(any2)
5407             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5408             attribute1.Name = "namespace"
5409             attribute1.FixedValue = ds.Namespace
5410             type.Attributes.Add(attribute1)
5411             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5412             attribute2.Name = "tableTypeName"
5413             attribute2.FixedValue = "LogsDataTable"
5414             type.Attributes.Add(attribute2)
5415             type.Particle = sequence
5416             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5417             If xs.Contains(dsSchema.TargetNamespace) Then
5418                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5419                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5420                 Try
5421                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5422                     dsSchema.Write(s1)
5423                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5424                     Do While schemas.MoveNext
5425                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5426                         s2.SetLength(0)
5427                         schema.Write(s2)
5428                         If (s1.Length = s2.Length) Then
5429                             s1.Position = 0
5430                             s2.Position = 0
5431                             
5432                             Do While ((s1.Position <> s1.Length) _
5433                                         AndAlso (s1.ReadByte = s2.ReadByte))
5434                                 
5435                                 
5436                             Loop
5437                             If (s1.Position = s1.Length) Then
5438                                 Return type
5439                             End If
5440                         End If
5441                         
5442                     Loop
5443                 Finally
5444                     If (Not (s1) Is Nothing) Then
5445                         s1.Close
5446                     End If
5447                     If (Not (s2) Is Nothing) Then
5448                         s2.Close
5449                     End If
5450                 End Try
5451             End If
5452             xs.Add(dsSchema)
5453             Return type
5454         End Function
5455     End Class
5456     
5457     '''<summary>
5458     '''Represents the strongly named DataTable class.
5459     '''</summary>
5460     <Global.System.Serializable(), _
5461      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5462     Partial Public Class ProductDataTable
5463         Inherits Global.System.Data.TypedTableBase(Of ProductRow)
5464         
5465         Private columnPID As Global.System.Data.DataColumn
5466         
5467         Private columnProductCode As Global.System.Data.DataColumn
5468         
5469         Private columnProductName As Global.System.Data.DataColumn
5470         
5471         Private columnSubCategoryID As Global.System.Data.DataColumn
5472         
5473         Private columnDescription As Global.System.Data.DataColumn
5474         
5475         Private columnCostPrice As Global.System.Data.DataColumn
5476         
5477         Private columnSellingPrice As Global.System.Data.DataColumn
5478         
5479         Private columnDiscount As Global.System.Data.DataColumn
5480         
5481         Private columnVAT As Global.System.Data.DataColumn
5482         
5483         Private columnReorderPoint As Global.System.Data.DataColumn
5484         
5485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5487         Public Sub New()
5488             MyBase.New
5489             Me.TableName = "Product"
5490             Me.BeginInit
5491             Me.InitClass
5492             Me.EndInit
5493         End Sub
5494         
5495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5497         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5498             MyBase.New
5499             Me.TableName = table.TableName
5500             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5501                 Me.CaseSensitive = table.CaseSensitive
5502             End If
5503             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5504                 Me.Locale = table.Locale
5505             End If
5506             If (table.Namespace <> table.DataSet.Namespace) Then
5507                 Me.Namespace = table.Namespace
5508             End If
5509             Me.Prefix = table.Prefix
5510             Me.MinimumCapacity = table.MinimumCapacity
5511         End Sub
5512         
5513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5515         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5516             MyBase.New(info, context)
5517             Me.InitVars
5518         End Sub
5519         
5520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5522         Public ReadOnly Property PIDColumn() As Global.System.Data.DataColumn
5523             Get
5524                 Return Me.columnPID
5525             End Get
5526         End Property
5527         
5528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5530         Public ReadOnly Property ProductCodeColumn() As Global.System.Data.DataColumn
5531             Get
5532                 Return Me.columnProductCode
5533             End Get
5534         End Property
5535         
5536         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5537          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5538         Public ReadOnly Property ProductNameColumn() As Global.System.Data.DataColumn
5539             Get
5540                 Return Me.columnProductName
5541             End Get
5542         End Property
5543         
5544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5546         Public ReadOnly Property SubCategoryIDColumn() As Global.System.Data.DataColumn
5547             Get
5548                 Return Me.columnSubCategoryID
5549             End Get
5550         End Property
5551         
5552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5554         Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn
5555             Get
5556                 Return Me.columnDescription
5557             End Get
5558         End Property
5559         
5560         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5561          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5562         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
5563             Get
5564                 Return Me.columnCostPrice
5565             End Get
5566         End Property
5567         
5568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5570         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
5571             Get
5572                 Return Me.columnSellingPrice
5573             End Get
5574         End Property
5575         
5576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5578         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
5579             Get
5580                 Return Me.columnDiscount
5581             End Get
5582         End Property
5583         
5584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5586         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
5587             Get
5588                 Return Me.columnVAT
5589             End Get
5590         End Property
5591         
5592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5594         Public ReadOnly Property ReorderPointColumn() As Global.System.Data.DataColumn
5595             Get
5596                 Return Me.columnReorderPoint
5597             End Get
5598         End Property
5599         
5600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5602          Global.System.ComponentModel.Browsable(false)> _
5603         Public ReadOnly Property Count() As Integer
5604             Get
5605                 Return Me.Rows.Count
5606             End Get
5607         End Property
5608         
5609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5611         Public Default ReadOnly Property Item(ByVal index As Integer) As ProductRow
5612             Get
5613                 Return CType(Me.Rows(index),ProductRow)
5614             End Get
5615         End Property
5616         
5617         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5618         Public Event ProductRowChanging As ProductRowChangeEventHandler
5619         
5620         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5621         Public Event ProductRowChanged As ProductRowChangeEventHandler
5622         
5623         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5624         Public Event ProductRowDeleting As ProductRowChangeEventHandler
5625         
5626         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5627         Public Event ProductRowDeleted As ProductRowChangeEventHandler
5628         
5629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5631         Public Overloads Sub AddProductRow(ByVal row As ProductRow)
5632             Me.Rows.Add(row)
5633         End Sub
5634         
5635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5637         Public Overloads Function AddProductRow(ByVal PID As Integer, ByVal ProductCode As String, ByVal ProductName As String, ByVal parentSubCategoryRowByFK_Product_SubCategory As SubCategoryRow, ByVal Description As String, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Discount As Decimal, ByVal VAT As Decimal, ByVal ReorderPoint As Integer) As ProductRow
5638             Dim rowProductRow As ProductRow = CType(Me.NewRow,ProductRow)
5639             Dim columnValuesArray() As Object = New Object() {PID, ProductCode, ProductName, Nothing, Description, CostPrice, SellingPrice, Discount, VAT, ReorderPoint}
5640             If (Not (parentSubCategoryRowByFK_Product_SubCategory) Is Nothing) Then
5641                 columnValuesArray(3) = parentSubCategoryRowByFK_Product_SubCategory(0)
5642             End If
5643             rowProductRow.ItemArray = columnValuesArray
5644             Me.Rows.Add(rowProductRow)
5645             Return rowProductRow
5646         End Function
5647         
5648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5650         Public Function FindByPID(ByVal PID As Integer) As ProductRow
5651             Return CType(Me.Rows.Find(New Object() {PID}),ProductRow)
5652         End Function
5653         
5654         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5655          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5656         Public Overrides Function Clone() As Global.System.Data.DataTable
5657             Dim cln As ProductDataTable = CType(MyBase.Clone,ProductDataTable)
5658             cln.InitVars
5659             Return cln
5660         End Function
5661         
5662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5664         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5665             Return New ProductDataTable()
5666         End Function
5667         
5668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5670         Friend Sub InitVars()
5671             Me.columnPID = MyBase.Columns("PID")
5672             Me.columnProductCode = MyBase.Columns("ProductCode")
5673             Me.columnProductName = MyBase.Columns("ProductName")
5674             Me.columnSubCategoryID = MyBase.Columns("SubCategoryID")
5675             Me.columnDescription = MyBase.Columns("Description")
5676             Me.columnCostPrice = MyBase.Columns("CostPrice")
5677             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
5678             Me.columnDiscount = MyBase.Columns("Discount")
5679             Me.columnVAT = MyBase.Columns("VAT")
5680             Me.columnReorderPoint = MyBase.Columns("ReorderPoint")
5681         End Sub
5682         
5683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5685         Private Sub InitClass()
5686             Me.columnPID = New Global.System.Data.DataColumn("PID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5687             MyBase.Columns.Add(Me.columnPID)
5688             Me.columnProductCode = New Global.System.Data.DataColumn("ProductCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5689             MyBase.Columns.Add(Me.columnProductCode)
5690             Me.columnProductName = New Global.System.Data.DataColumn("ProductName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5691             MyBase.Columns.Add(Me.columnProductName)
5692             Me.columnSubCategoryID = New Global.System.Data.DataColumn("SubCategoryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5693             MyBase.Columns.Add(Me.columnSubCategoryID)
5694             Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5695             MyBase.Columns.Add(Me.columnDescription)
5696             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5697             MyBase.Columns.Add(Me.columnCostPrice)
5698             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5699             MyBase.Columns.Add(Me.columnSellingPrice)
5700             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5701             MyBase.Columns.Add(Me.columnDiscount)
5702             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5703             MyBase.Columns.Add(Me.columnVAT)
5704             Me.columnReorderPoint = New Global.System.Data.DataColumn("ReorderPoint", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5705             MyBase.Columns.Add(Me.columnReorderPoint)
5706             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPID}, true))
5707             Me.columnPID.AllowDBNull = false
5708             Me.columnPID.Unique = true
5709             Me.columnProductCode.AllowDBNull = false
5710             Me.columnProductCode.MaxLength = 30
5711             Me.columnProductName.AllowDBNull = false
5712             Me.columnProductName.MaxLength = 200
5713             Me.columnSubCategoryID.AllowDBNull = false
5714             Me.columnDescription.MaxLength = 2147483647
5715             Me.columnCostPrice.AllowDBNull = false
5716             Me.columnSellingPrice.AllowDBNull = false
5717             Me.columnDiscount.AllowDBNull = false
5718             Me.columnVAT.AllowDBNull = false
5719             Me.columnReorderPoint.AllowDBNull = false
5720         End Sub
5721         
5722         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5723          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5724         Public Function NewProductRow() As ProductRow
5725             Return CType(Me.NewRow,ProductRow)
5726         End Function
5727         
5728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5730         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5731             Return New ProductRow(builder)
5732         End Function
5733         
5734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5736         Protected Overrides Function GetRowType() As Global.System.Type
5737             Return GetType(ProductRow)
5738         End Function
5739         
5740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5742         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5743             MyBase.OnRowChanged(e)
5744             If (Not (Me.ProductRowChangedEvent) Is Nothing) Then
5745                 RaiseEvent ProductRowChanged(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5746             End If
5747         End Sub
5748         
5749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5751         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5752             MyBase.OnRowChanging(e)
5753             If (Not (Me.ProductRowChangingEvent) Is Nothing) Then
5754                 RaiseEvent ProductRowChanging(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5755             End If
5756         End Sub
5757         
5758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5760         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5761             MyBase.OnRowDeleted(e)
5762             If (Not (Me.ProductRowDeletedEvent) Is Nothing) Then
5763                 RaiseEvent ProductRowDeleted(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5764             End If
5765         End Sub
5766         
5767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5769         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5770             MyBase.OnRowDeleting(e)
5771             If (Not (Me.ProductRowDeletingEvent) Is Nothing) Then
5772                 RaiseEvent ProductRowDeleting(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5773             End If
5774         End Sub
5775         
5776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5778         Public Sub RemoveProductRow(ByVal row As ProductRow)
5779             Me.Rows.Remove(row)
5780         End Sub
5781         
5782         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5783          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5784         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5785             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5786             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5787             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
5788             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5789             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5790             any1.MinOccurs = New Decimal(0)
5791             any1.MaxOccurs = Decimal.MaxValue
5792             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5793             sequence.Items.Add(any1)
5794             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5795             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5796             any2.MinOccurs = New Decimal(1)
5797             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5798             sequence.Items.Add(any2)
5799             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5800             attribute1.Name = "namespace"
5801             attribute1.FixedValue = ds.Namespace
5802             type.Attributes.Add(attribute1)
5803             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5804             attribute2.Name = "tableTypeName"
5805             attribute2.FixedValue = "ProductDataTable"
5806             type.Attributes.Add(attribute2)
5807             type.Particle = sequence
5808             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5809             If xs.Contains(dsSchema.TargetNamespace) Then
5810                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5811                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5812                 Try
5813                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5814                     dsSchema.Write(s1)
5815                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5816                     Do While schemas.MoveNext
5817                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5818                         s2.SetLength(0)
5819                         schema.Write(s2)
5820                         If (s1.Length = s2.Length) Then
5821                             s1.Position = 0
5822                             s2.Position = 0
5823                             
5824                             Do While ((s1.Position <> s1.Length) _
5825                                         AndAlso (s1.ReadByte = s2.ReadByte))
5826                                 
5827                                 
5828                             Loop
5829                             If (s1.Position = s1.Length) Then
5830                                 Return type
5831                             End If
5832                         End If
5833                         
5834                     Loop
5835                 Finally
5836                     If (Not (s1) Is Nothing) Then
5837                         s1.Close
5838                     End If
5839                     If (Not (s2) Is Nothing) Then
5840                         s2.Close
5841                     End If
5842                 End Try
5843             End If
5844             xs.Add(dsSchema)
5845             Return type
5846         End Function
5847     End Class
5848     
5849     '''<summary>
5850     '''Represents the strongly named DataTable class.
5851     '''</summary>
5852     <Global.System.Serializable(), _
5853      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5854     Partial Public Class Product_JoinDataTable
5855         Inherits Global.System.Data.TypedTableBase(Of Product_JoinRow)
5856         
5857         Private columnId As Global.System.Data.DataColumn
5858         
5859         Private columnProductID As Global.System.Data.DataColumn
5860         
5861         Private columnPhoto As Global.System.Data.DataColumn
5862         
5863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5865         Public Sub New()
5866             MyBase.New
5867             Me.TableName = "Product_Join"
5868             Me.BeginInit
5869             Me.InitClass
5870             Me.EndInit
5871         End Sub
5872         
5873         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5874          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5875         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5876             MyBase.New
5877             Me.TableName = table.TableName
5878             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5879                 Me.CaseSensitive = table.CaseSensitive
5880             End If
5881             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5882                 Me.Locale = table.Locale
5883             End If
5884             If (table.Namespace <> table.DataSet.Namespace) Then
5885                 Me.Namespace = table.Namespace
5886             End If
5887             Me.Prefix = table.Prefix
5888             Me.MinimumCapacity = table.MinimumCapacity
5889         End Sub
5890         
5891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5893         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5894             MyBase.New(info, context)
5895             Me.InitVars
5896         End Sub
5897         
5898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5900         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
5901             Get
5902                 Return Me.columnId
5903             End Get
5904         End Property
5905         
5906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5908         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
5909             Get
5910                 Return Me.columnProductID
5911             End Get
5912         End Property
5913         
5914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5916         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
5917             Get
5918                 Return Me.columnPhoto
5919             End Get
5920         End Property
5921         
5922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5924          Global.System.ComponentModel.Browsable(false)> _
5925         Public ReadOnly Property Count() As Integer
5926             Get
5927                 Return Me.Rows.Count
5928             End Get
5929         End Property
5930         
5931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5933         Public Default ReadOnly Property Item(ByVal index As Integer) As Product_JoinRow
5934             Get
5935                 Return CType(Me.Rows(index),Product_JoinRow)
5936             End Get
5937         End Property
5938         
5939         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5940         Public Event Product_JoinRowChanging As Product_JoinRowChangeEventHandler
5941         
5942         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5943         Public Event Product_JoinRowChanged As Product_JoinRowChangeEventHandler
5944         
5945         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5946         Public Event Product_JoinRowDeleting As Product_JoinRowChangeEventHandler
5947         
5948         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5949         Public Event Product_JoinRowDeleted As Product_JoinRowChangeEventHandler
5950         
5951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5953         Public Overloads Sub AddProduct_JoinRow(ByVal row As Product_JoinRow)
5954             Me.Rows.Add(row)
5955         End Sub
5956         
5957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5959         Public Overloads Function AddProduct_JoinRow(ByVal parentProductRowByFK_Product_Join_Product As ProductRow, ByVal Photo() As Byte) As Product_JoinRow
5960             Dim rowProduct_JoinRow As Product_JoinRow = CType(Me.NewRow,Product_JoinRow)
5961             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Photo}
5962             If (Not (parentProductRowByFK_Product_Join_Product) Is Nothing) Then
5963                 columnValuesArray(1) = parentProductRowByFK_Product_Join_Product(0)
5964             End If
5965             rowProduct_JoinRow.ItemArray = columnValuesArray
5966             Me.Rows.Add(rowProduct_JoinRow)
5967             Return rowProduct_JoinRow
5968         End Function
5969         
5970         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5971          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5972         Public Function FindById(ByVal Id As Integer) As Product_JoinRow
5973             Return CType(Me.Rows.Find(New Object() {Id}),Product_JoinRow)
5974         End Function
5975         
5976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5978         Public Overrides Function Clone() As Global.System.Data.DataTable
5979             Dim cln As Product_JoinDataTable = CType(MyBase.Clone,Product_JoinDataTable)
5980             cln.InitVars
5981             Return cln
5982         End Function
5983         
5984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5986         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5987             Return New Product_JoinDataTable()
5988         End Function
5989         
5990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5992         Friend Sub InitVars()
5993             Me.columnId = MyBase.Columns("Id")
5994             Me.columnProductID = MyBase.Columns("ProductID")
5995             Me.columnPhoto = MyBase.Columns("Photo")
5996         End Sub
5997         
5998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6000         Private Sub InitClass()
6001             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6002             MyBase.Columns.Add(Me.columnId)
6003             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6004             MyBase.Columns.Add(Me.columnProductID)
6005             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
6006             MyBase.Columns.Add(Me.columnPhoto)
6007             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
6008             Me.columnId.AutoIncrement = true
6009             Me.columnId.AutoIncrementSeed = -1
6010             Me.columnId.AutoIncrementStep = -1
6011             Me.columnId.AllowDBNull = false
6012             Me.columnId.ReadOnly = true
6013             Me.columnId.Unique = true
6014             Me.columnProductID.AllowDBNull = false
6015             Me.columnPhoto.AllowDBNull = false
6016         End Sub
6017         
6018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6020         Public Function NewProduct_JoinRow() As Product_JoinRow
6021             Return CType(Me.NewRow,Product_JoinRow)
6022         End Function
6023         
6024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6026         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6027             Return New Product_JoinRow(builder)
6028         End Function
6029         
6030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6032         Protected Overrides Function GetRowType() As Global.System.Type
6033             Return GetType(Product_JoinRow)
6034         End Function
6035         
6036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6038         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6039             MyBase.OnRowChanged(e)
6040             If (Not (Me.Product_JoinRowChangedEvent) Is Nothing) Then
6041                 RaiseEvent Product_JoinRowChanged(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6042             End If
6043         End Sub
6044         
6045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6047         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6048             MyBase.OnRowChanging(e)
6049             If (Not (Me.Product_JoinRowChangingEvent) Is Nothing) Then
6050                 RaiseEvent Product_JoinRowChanging(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6051             End If
6052         End Sub
6053         
6054         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6055          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6056         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6057             MyBase.OnRowDeleted(e)
6058             If (Not (Me.Product_JoinRowDeletedEvent) Is Nothing) Then
6059                 RaiseEvent Product_JoinRowDeleted(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6060             End If
6061         End Sub
6062         
6063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6065         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6066             MyBase.OnRowDeleting(e)
6067             If (Not (Me.Product_JoinRowDeletingEvent) Is Nothing) Then
6068                 RaiseEvent Product_JoinRowDeleting(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6069             End If
6070         End Sub
6071         
6072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6074         Public Sub RemoveProduct_JoinRow(ByVal row As Product_JoinRow)
6075             Me.Rows.Remove(row)
6076         End Sub
6077         
6078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6080         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6081             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6082             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6083             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
6084             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6085             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6086             any1.MinOccurs = New Decimal(0)
6087             any1.MaxOccurs = Decimal.MaxValue
6088             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6089             sequence.Items.Add(any1)
6090             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6091             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6092             any2.MinOccurs = New Decimal(1)
6093             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6094             sequence.Items.Add(any2)
6095             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6096             attribute1.Name = "namespace"
6097             attribute1.FixedValue = ds.Namespace
6098             type.Attributes.Add(attribute1)
6099             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6100             attribute2.Name = "tableTypeName"
6101             attribute2.FixedValue = "Product_JoinDataTable"
6102             type.Attributes.Add(attribute2)
6103             type.Particle = sequence
6104             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6105             If xs.Contains(dsSchema.TargetNamespace) Then
6106                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6107                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6108                 Try
6109                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6110                     dsSchema.Write(s1)
6111                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6112                     Do While schemas.MoveNext
6113                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6114                         s2.SetLength(0)
6115                         schema.Write(s2)
6116                         If (s1.Length = s2.Length) Then
6117                             s1.Position = 0
6118                             s2.Position = 0
6119                             
6120                             Do While ((s1.Position <> s1.Length) _
6121                                         AndAlso (s1.ReadByte = s2.ReadByte))
6122                                 
6123                                 
6124                             Loop
6125                             If (s1.Position = s1.Length) Then
6126                                 Return type
6127                             End If
6128                         End If
6129                         
6130                     Loop
6131                 Finally
6132                     If (Not (s1) Is Nothing) Then
6133                         s1.Close
6134                     End If
6135                     If (Not (s2) Is Nothing) Then
6136                         s2.Close
6137                     End If
6138                 End Try
6139             End If
6140             xs.Add(dsSchema)
6141             Return type
6142         End Function
6143     End Class
6144     
6145     '''<summary>
6146     '''Represents the strongly named DataTable class.
6147     '''</summary>
6148     <Global.System.Serializable(), _
6149      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6150     Partial Public Class QuotationDataTable
6151         Inherits Global.System.Data.TypedTableBase(Of QuotationRow)
6152         
6153         Private columnQ_ID As Global.System.Data.DataColumn
6154         
6155         Private columnQuotationNo As Global.System.Data.DataColumn
6156         
6157         Private columnDate As Global.System.Data.DataColumn
6158         
6159         Private columnCustomerID As Global.System.Data.DataColumn
6160         
6161         Private columnGrandTotal As Global.System.Data.DataColumn
6162         
6163         Private columnRemarks As Global.System.Data.DataColumn
6164         
6165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6167         Public Sub New()
6168             MyBase.New
6169             Me.TableName = "Quotation"
6170             Me.BeginInit
6171             Me.InitClass
6172             Me.EndInit
6173         End Sub
6174         
6175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6177         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6178             MyBase.New
6179             Me.TableName = table.TableName
6180             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6181                 Me.CaseSensitive = table.CaseSensitive
6182             End If
6183             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6184                 Me.Locale = table.Locale
6185             End If
6186             If (table.Namespace <> table.DataSet.Namespace) Then
6187                 Me.Namespace = table.Namespace
6188             End If
6189             Me.Prefix = table.Prefix
6190             Me.MinimumCapacity = table.MinimumCapacity
6191         End Sub
6192         
6193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6195         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6196             MyBase.New(info, context)
6197             Me.InitVars
6198         End Sub
6199         
6200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6202         Public ReadOnly Property Q_IDColumn() As Global.System.Data.DataColumn
6203             Get
6204                 Return Me.columnQ_ID
6205             End Get
6206         End Property
6207         
6208         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6209          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6210         Public ReadOnly Property QuotationNoColumn() As Global.System.Data.DataColumn
6211             Get
6212                 Return Me.columnQuotationNo
6213             End Get
6214         End Property
6215         
6216         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6217          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6218         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
6219             Get
6220                 Return Me.columnDate
6221             End Get
6222         End Property
6223         
6224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6226         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
6227             Get
6228                 Return Me.columnCustomerID
6229             End Get
6230         End Property
6231         
6232         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6233          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6234         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
6235             Get
6236                 Return Me.columnGrandTotal
6237             End Get
6238         End Property
6239         
6240         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6241          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6242         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
6243             Get
6244                 Return Me.columnRemarks
6245             End Get
6246         End Property
6247         
6248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6250          Global.System.ComponentModel.Browsable(false)> _
6251         Public ReadOnly Property Count() As Integer
6252             Get
6253                 Return Me.Rows.Count
6254             End Get
6255         End Property
6256         
6257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6259         Public Default ReadOnly Property Item(ByVal index As Integer) As QuotationRow
6260             Get
6261                 Return CType(Me.Rows(index),QuotationRow)
6262             End Get
6263         End Property
6264         
6265         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6266         Public Event QuotationRowChanging As QuotationRowChangeEventHandler
6267         
6268         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6269         Public Event QuotationRowChanged As QuotationRowChangeEventHandler
6270         
6271         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6272         Public Event QuotationRowDeleting As QuotationRowChangeEventHandler
6273         
6274         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6275         Public Event QuotationRowDeleted As QuotationRowChangeEventHandler
6276         
6277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6279         Public Overloads Sub AddQuotationRow(ByVal row As QuotationRow)
6280             Me.Rows.Add(row)
6281         End Sub
6282         
6283         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6284          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6285         Public Overloads Function AddQuotationRow(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal parentCustomerRowByFK_Quotation_Customer As CustomerRow, ByVal GrandTotal As Decimal, ByVal Remarks As String) As QuotationRow
6286             Dim rowQuotationRow As QuotationRow = CType(Me.NewRow,QuotationRow)
6287             Dim columnValuesArray() As Object = New Object() {Q_ID, QuotationNo, _Date, Nothing, GrandTotal, Remarks}
6288             If (Not (parentCustomerRowByFK_Quotation_Customer) Is Nothing) Then
6289                 columnValuesArray(3) = parentCustomerRowByFK_Quotation_Customer(0)
6290             End If
6291             rowQuotationRow.ItemArray = columnValuesArray
6292             Me.Rows.Add(rowQuotationRow)
6293             Return rowQuotationRow
6294         End Function
6295         
6296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6298         Public Function FindByQ_ID(ByVal Q_ID As Integer) As QuotationRow
6299             Return CType(Me.Rows.Find(New Object() {Q_ID}),QuotationRow)
6300         End Function
6301         
6302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6304         Public Overrides Function Clone() As Global.System.Data.DataTable
6305             Dim cln As QuotationDataTable = CType(MyBase.Clone,QuotationDataTable)
6306             cln.InitVars
6307             Return cln
6308         End Function
6309         
6310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6312         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6313             Return New QuotationDataTable()
6314         End Function
6315         
6316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6318         Friend Sub InitVars()
6319             Me.columnQ_ID = MyBase.Columns("Q_ID")
6320             Me.columnQuotationNo = MyBase.Columns("QuotationNo")
6321             Me.columnDate = MyBase.Columns("Date")
6322             Me.columnCustomerID = MyBase.Columns("CustomerID")
6323             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
6324             Me.columnRemarks = MyBase.Columns("Remarks")
6325         End Sub
6326         
6327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6329         Private Sub InitClass()
6330             Me.columnQ_ID = New Global.System.Data.DataColumn("Q_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6331             MyBase.Columns.Add(Me.columnQ_ID)
6332             Me.columnQuotationNo = New Global.System.Data.DataColumn("QuotationNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6333             MyBase.Columns.Add(Me.columnQuotationNo)
6334             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
6335             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
6336             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
6337             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
6338             MyBase.Columns.Add(Me.columnDate)
6339             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6340             MyBase.Columns.Add(Me.columnCustomerID)
6341             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6342             MyBase.Columns.Add(Me.columnGrandTotal)
6343             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6344             MyBase.Columns.Add(Me.columnRemarks)
6345             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQ_ID}, true))
6346             Me.columnQ_ID.AllowDBNull = false
6347             Me.columnQ_ID.Unique = true
6348             Me.columnQuotationNo.AllowDBNull = false
6349             Me.columnQuotationNo.MaxLength = 30
6350             Me.columnDate.AllowDBNull = false
6351             Me.columnCustomerID.AllowDBNull = false
6352             Me.columnGrandTotal.AllowDBNull = false
6353             Me.columnRemarks.MaxLength = 2147483647
6354         End Sub
6355         
6356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6358         Public Function NewQuotationRow() As QuotationRow
6359             Return CType(Me.NewRow,QuotationRow)
6360         End Function
6361         
6362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6364         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6365             Return New QuotationRow(builder)
6366         End Function
6367         
6368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6370         Protected Overrides Function GetRowType() As Global.System.Type
6371             Return GetType(QuotationRow)
6372         End Function
6373         
6374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6376         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6377             MyBase.OnRowChanged(e)
6378             If (Not (Me.QuotationRowChangedEvent) Is Nothing) Then
6379                 RaiseEvent QuotationRowChanged(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6380             End If
6381         End Sub
6382         
6383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6385         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6386             MyBase.OnRowChanging(e)
6387             If (Not (Me.QuotationRowChangingEvent) Is Nothing) Then
6388                 RaiseEvent QuotationRowChanging(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6389             End If
6390         End Sub
6391         
6392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6394         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6395             MyBase.OnRowDeleted(e)
6396             If (Not (Me.QuotationRowDeletedEvent) Is Nothing) Then
6397                 RaiseEvent QuotationRowDeleted(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6398             End If
6399         End Sub
6400         
6401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6403         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6404             MyBase.OnRowDeleting(e)
6405             If (Not (Me.QuotationRowDeletingEvent) Is Nothing) Then
6406                 RaiseEvent QuotationRowDeleting(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6407             End If
6408         End Sub
6409         
6410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6412         Public Sub RemoveQuotationRow(ByVal row As QuotationRow)
6413             Me.Rows.Remove(row)
6414         End Sub
6415         
6416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6418         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6419             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6420             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6421             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
6422             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6423             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6424             any1.MinOccurs = New Decimal(0)
6425             any1.MaxOccurs = Decimal.MaxValue
6426             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6427             sequence.Items.Add(any1)
6428             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6429             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6430             any2.MinOccurs = New Decimal(1)
6431             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6432             sequence.Items.Add(any2)
6433             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6434             attribute1.Name = "namespace"
6435             attribute1.FixedValue = ds.Namespace
6436             type.Attributes.Add(attribute1)
6437             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6438             attribute2.Name = "tableTypeName"
6439             attribute2.FixedValue = "QuotationDataTable"
6440             type.Attributes.Add(attribute2)
6441             type.Particle = sequence
6442             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6443             If xs.Contains(dsSchema.TargetNamespace) Then
6444                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6445                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6446                 Try
6447                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6448                     dsSchema.Write(s1)
6449                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6450                     Do While schemas.MoveNext
6451                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6452                         s2.SetLength(0)
6453                         schema.Write(s2)
6454                         If (s1.Length = s2.Length) Then
6455                             s1.Position = 0
6456                             s2.Position = 0
6457                             
6458                             Do While ((s1.Position <> s1.Length) _
6459                                         AndAlso (s1.ReadByte = s2.ReadByte))
6460                                 
6461                                 
6462                             Loop
6463                             If (s1.Position = s1.Length) Then
6464                                 Return type
6465                             End If
6466                         End If
6467                         
6468                     Loop
6469                 Finally
6470                     If (Not (s1) Is Nothing) Then
6471                         s1.Close
6472                     End If
6473                     If (Not (s2) Is Nothing) Then
6474                         s2.Close
6475                     End If
6476                 End Try
6477             End If
6478             xs.Add(dsSchema)
6479             Return type
6480         End Function
6481     End Class
6482     
6483     '''<summary>
6484     '''Represents the strongly named DataTable class.
6485     '''</summary>
6486     <Global.System.Serializable(), _
6487      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6488     Partial Public Class Quotation_JoinDataTable
6489         Inherits Global.System.Data.TypedTableBase(Of Quotation_JoinRow)
6490         
6491         Private columnQJ_ID As Global.System.Data.DataColumn
6492         
6493         Private columnQuotationID As Global.System.Data.DataColumn
6494         
6495         Private columnProductID As Global.System.Data.DataColumn
6496         
6497         Private columnCost As Global.System.Data.DataColumn
6498         
6499         Private columnQty As Global.System.Data.DataColumn
6500         
6501         Private columnAmount As Global.System.Data.DataColumn
6502         
6503         Private columnDiscountPer As Global.System.Data.DataColumn
6504         
6505         Private columnDiscount As Global.System.Data.DataColumn
6506         
6507         Private columnVATPer As Global.System.Data.DataColumn
6508         
6509         Private columnVAT As Global.System.Data.DataColumn
6510         
6511         Private columnTotalAmount As Global.System.Data.DataColumn
6512         
6513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6515         Public Sub New()
6516             MyBase.New
6517             Me.TableName = "Quotation_Join"
6518             Me.BeginInit
6519             Me.InitClass
6520             Me.EndInit
6521         End Sub
6522         
6523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6525         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6526             MyBase.New
6527             Me.TableName = table.TableName
6528             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6529                 Me.CaseSensitive = table.CaseSensitive
6530             End If
6531             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6532                 Me.Locale = table.Locale
6533             End If
6534             If (table.Namespace <> table.DataSet.Namespace) Then
6535                 Me.Namespace = table.Namespace
6536             End If
6537             Me.Prefix = table.Prefix
6538             Me.MinimumCapacity = table.MinimumCapacity
6539         End Sub
6540         
6541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6543         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6544             MyBase.New(info, context)
6545             Me.InitVars
6546         End Sub
6547         
6548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6550         Public ReadOnly Property QJ_IDColumn() As Global.System.Data.DataColumn
6551             Get
6552                 Return Me.columnQJ_ID
6553             End Get
6554         End Property
6555         
6556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6558         Public ReadOnly Property QuotationIDColumn() As Global.System.Data.DataColumn
6559             Get
6560                 Return Me.columnQuotationID
6561             End Get
6562         End Property
6563         
6564         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6565          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6566         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
6567             Get
6568                 Return Me.columnProductID
6569             End Get
6570         End Property
6571         
6572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6574         Public ReadOnly Property CostColumn() As Global.System.Data.DataColumn
6575             Get
6576                 Return Me.columnCost
6577             End Get
6578         End Property
6579         
6580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6582         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
6583             Get
6584                 Return Me.columnQty
6585             End Get
6586         End Property
6587         
6588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6590         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
6591             Get
6592                 Return Me.columnAmount
6593             End Get
6594         End Property
6595         
6596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6598         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
6599             Get
6600                 Return Me.columnDiscountPer
6601             End Get
6602         End Property
6603         
6604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6606         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
6607             Get
6608                 Return Me.columnDiscount
6609             End Get
6610         End Property
6611         
6612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6614         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
6615             Get
6616                 Return Me.columnVATPer
6617             End Get
6618         End Property
6619         
6620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6622         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
6623             Get
6624                 Return Me.columnVAT
6625             End Get
6626         End Property
6627         
6628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6630         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
6631             Get
6632                 Return Me.columnTotalAmount
6633             End Get
6634         End Property
6635         
6636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6638          Global.System.ComponentModel.Browsable(false)> _
6639         Public ReadOnly Property Count() As Integer
6640             Get
6641                 Return Me.Rows.Count
6642             End Get
6643         End Property
6644         
6645         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6646          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6647         Public Default ReadOnly Property Item(ByVal index As Integer) As Quotation_JoinRow
6648             Get
6649                 Return CType(Me.Rows(index),Quotation_JoinRow)
6650             End Get
6651         End Property
6652         
6653         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6654         Public Event Quotation_JoinRowChanging As Quotation_JoinRowChangeEventHandler
6655         
6656         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6657         Public Event Quotation_JoinRowChanged As Quotation_JoinRowChangeEventHandler
6658         
6659         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6660         Public Event Quotation_JoinRowDeleting As Quotation_JoinRowChangeEventHandler
6661         
6662         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6663         Public Event Quotation_JoinRowDeleted As Quotation_JoinRowChangeEventHandler
6664         
6665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6667         Public Overloads Sub AddQuotation_JoinRow(ByVal row As Quotation_JoinRow)
6668             Me.Rows.Add(row)
6669         End Sub
6670         
6671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6673         Public Overloads Function AddQuotation_JoinRow(ByVal parentQuotationRowByFK_Quotation_Join_Quotation As QuotationRow, ByVal parentProductRowByFK_Quotation_Join_Product As ProductRow, ByVal Cost As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Quotation_JoinRow
6674             Dim rowQuotation_JoinRow As Quotation_JoinRow = CType(Me.NewRow,Quotation_JoinRow)
6675             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Cost, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
6676             If (Not (parentQuotationRowByFK_Quotation_Join_Quotation) Is Nothing) Then
6677                 columnValuesArray(1) = parentQuotationRowByFK_Quotation_Join_Quotation(0)
6678             End If
6679             If (Not (parentProductRowByFK_Quotation_Join_Product) Is Nothing) Then
6680                 columnValuesArray(2) = parentProductRowByFK_Quotation_Join_Product(0)
6681             End If
6682             rowQuotation_JoinRow.ItemArray = columnValuesArray
6683             Me.Rows.Add(rowQuotation_JoinRow)
6684             Return rowQuotation_JoinRow
6685         End Function
6686         
6687         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6688          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6689         Public Function FindByQJ_ID(ByVal QJ_ID As Integer) As Quotation_JoinRow
6690             Return CType(Me.Rows.Find(New Object() {QJ_ID}),Quotation_JoinRow)
6691         End Function
6692         
6693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6695         Public Overrides Function Clone() As Global.System.Data.DataTable
6696             Dim cln As Quotation_JoinDataTable = CType(MyBase.Clone,Quotation_JoinDataTable)
6697             cln.InitVars
6698             Return cln
6699         End Function
6700         
6701         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6702          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6703         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6704             Return New Quotation_JoinDataTable()
6705         End Function
6706         
6707         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6708          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6709         Friend Sub InitVars()
6710             Me.columnQJ_ID = MyBase.Columns("QJ_ID")
6711             Me.columnQuotationID = MyBase.Columns("QuotationID")
6712             Me.columnProductID = MyBase.Columns("ProductID")
6713             Me.columnCost = MyBase.Columns("Cost")
6714             Me.columnQty = MyBase.Columns("Qty")
6715             Me.columnAmount = MyBase.Columns("Amount")
6716             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
6717             Me.columnDiscount = MyBase.Columns("Discount")
6718             Me.columnVATPer = MyBase.Columns("VATPer")
6719             Me.columnVAT = MyBase.Columns("VAT")
6720             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
6721         End Sub
6722         
6723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6725         Private Sub InitClass()
6726             Me.columnQJ_ID = New Global.System.Data.DataColumn("QJ_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6727             MyBase.Columns.Add(Me.columnQJ_ID)
6728             Me.columnQuotationID = New Global.System.Data.DataColumn("QuotationID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6729             MyBase.Columns.Add(Me.columnQuotationID)
6730             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6731             MyBase.Columns.Add(Me.columnProductID)
6732             Me.columnCost = New Global.System.Data.DataColumn("Cost", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6733             MyBase.Columns.Add(Me.columnCost)
6734             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6735             MyBase.Columns.Add(Me.columnQty)
6736             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6737             MyBase.Columns.Add(Me.columnAmount)
6738             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6739             MyBase.Columns.Add(Me.columnDiscountPer)
6740             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6741             MyBase.Columns.Add(Me.columnDiscount)
6742             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6743             MyBase.Columns.Add(Me.columnVATPer)
6744             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6745             MyBase.Columns.Add(Me.columnVAT)
6746             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6747             MyBase.Columns.Add(Me.columnTotalAmount)
6748             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQJ_ID}, true))
6749             Me.columnQJ_ID.AutoIncrement = true
6750             Me.columnQJ_ID.AutoIncrementSeed = -1
6751             Me.columnQJ_ID.AutoIncrementStep = -1
6752             Me.columnQJ_ID.AllowDBNull = false
6753             Me.columnQJ_ID.ReadOnly = true
6754             Me.columnQJ_ID.Unique = true
6755             Me.columnQuotationID.AllowDBNull = false
6756             Me.columnProductID.AllowDBNull = false
6757             Me.columnCost.AllowDBNull = false
6758             Me.columnQty.AllowDBNull = false
6759             Me.columnAmount.AllowDBNull = false
6760             Me.columnDiscountPer.AllowDBNull = false
6761             Me.columnDiscount.AllowDBNull = false
6762             Me.columnVATPer.AllowDBNull = false
6763             Me.columnVAT.AllowDBNull = false
6764             Me.columnTotalAmount.AllowDBNull = false
6765         End Sub
6766         
6767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6769         Public Function NewQuotation_JoinRow() As Quotation_JoinRow
6770             Return CType(Me.NewRow,Quotation_JoinRow)
6771         End Function
6772         
6773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6775         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6776             Return New Quotation_JoinRow(builder)
6777         End Function
6778         
6779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6781         Protected Overrides Function GetRowType() As Global.System.Type
6782             Return GetType(Quotation_JoinRow)
6783         End Function
6784         
6785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6787         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6788             MyBase.OnRowChanged(e)
6789             If (Not (Me.Quotation_JoinRowChangedEvent) Is Nothing) Then
6790                 RaiseEvent Quotation_JoinRowChanged(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6791             End If
6792         End Sub
6793         
6794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6796         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6797             MyBase.OnRowChanging(e)
6798             If (Not (Me.Quotation_JoinRowChangingEvent) Is Nothing) Then
6799                 RaiseEvent Quotation_JoinRowChanging(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6800             End If
6801         End Sub
6802         
6803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6805         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6806             MyBase.OnRowDeleted(e)
6807             If (Not (Me.Quotation_JoinRowDeletedEvent) Is Nothing) Then
6808                 RaiseEvent Quotation_JoinRowDeleted(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6809             End If
6810         End Sub
6811         
6812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6814         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6815             MyBase.OnRowDeleting(e)
6816             If (Not (Me.Quotation_JoinRowDeletingEvent) Is Nothing) Then
6817                 RaiseEvent Quotation_JoinRowDeleting(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6818             End If
6819         End Sub
6820         
6821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6823         Public Sub RemoveQuotation_JoinRow(ByVal row As Quotation_JoinRow)
6824             Me.Rows.Remove(row)
6825         End Sub
6826         
6827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6829         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6830             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6831             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6832             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
6833             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6834             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6835             any1.MinOccurs = New Decimal(0)
6836             any1.MaxOccurs = Decimal.MaxValue
6837             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6838             sequence.Items.Add(any1)
6839             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6840             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6841             any2.MinOccurs = New Decimal(1)
6842             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6843             sequence.Items.Add(any2)
6844             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6845             attribute1.Name = "namespace"
6846             attribute1.FixedValue = ds.Namespace
6847             type.Attributes.Add(attribute1)
6848             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6849             attribute2.Name = "tableTypeName"
6850             attribute2.FixedValue = "Quotation_JoinDataTable"
6851             type.Attributes.Add(attribute2)
6852             type.Particle = sequence
6853             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6854             If xs.Contains(dsSchema.TargetNamespace) Then
6855                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6856                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6857                 Try
6858                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6859                     dsSchema.Write(s1)
6860                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6861                     Do While schemas.MoveNext
6862                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6863                         s2.SetLength(0)
6864                         schema.Write(s2)
6865                         If (s1.Length = s2.Length) Then
6866                             s1.Position = 0
6867                             s2.Position = 0
6868                             
6869                             Do While ((s1.Position <> s1.Length) _
6870                                         AndAlso (s1.ReadByte = s2.ReadByte))
6871                                 
6872                                 
6873                             Loop
6874                             If (s1.Position = s1.Length) Then
6875                                 Return type
6876                             End If
6877                         End If
6878                         
6879                     Loop
6880                 Finally
6881                     If (Not (s1) Is Nothing) Then
6882                         s1.Close
6883                     End If
6884                     If (Not (s2) Is Nothing) Then
6885                         s2.Close
6886                     End If
6887                 End Try
6888             End If
6889             xs.Add(dsSchema)
6890             Return type
6891         End Function
6892     End Class
6893     
6894     '''<summary>
6895     '''Represents the strongly named DataTable class.
6896     '''</summary>
6897     <Global.System.Serializable(), _
6898      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6899     Partial Public Class RegistrationDataTable
6900         Inherits Global.System.Data.TypedTableBase(Of RegistrationRow)
6901         
6902         Private columnUserID As Global.System.Data.DataColumn
6903         
6904         Private columnUserType As Global.System.Data.DataColumn
6905         
6906         Private columnPassword As Global.System.Data.DataColumn
6907         
6908         Private columnName As Global.System.Data.DataColumn
6909         
6910         Private columnContactNo As Global.System.Data.DataColumn
6911         
6912         Private columnEmailID As Global.System.Data.DataColumn
6913         
6914         Private columnJoiningDate As Global.System.Data.DataColumn
6915         
6916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6918         Public Sub New()
6919             MyBase.New
6920             Me.TableName = "Registration"
6921             Me.BeginInit
6922             Me.InitClass
6923             Me.EndInit
6924         End Sub
6925         
6926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6928         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6929             MyBase.New
6930             Me.TableName = table.TableName
6931             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6932                 Me.CaseSensitive = table.CaseSensitive
6933             End If
6934             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6935                 Me.Locale = table.Locale
6936             End If
6937             If (table.Namespace <> table.DataSet.Namespace) Then
6938                 Me.Namespace = table.Namespace
6939             End If
6940             Me.Prefix = table.Prefix
6941             Me.MinimumCapacity = table.MinimumCapacity
6942         End Sub
6943         
6944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6946         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6947             MyBase.New(info, context)
6948             Me.InitVars
6949         End Sub
6950         
6951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6953         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
6954             Get
6955                 Return Me.columnUserID
6956             End Get
6957         End Property
6958         
6959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6961         Public ReadOnly Property UserTypeColumn() As Global.System.Data.DataColumn
6962             Get
6963                 Return Me.columnUserType
6964             End Get
6965         End Property
6966         
6967         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6968          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6969         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
6970             Get
6971                 Return Me.columnPassword
6972             End Get
6973         End Property
6974         
6975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6977         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
6978             Get
6979                 Return Me.columnName
6980             End Get
6981         End Property
6982         
6983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6985         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
6986             Get
6987                 Return Me.columnContactNo
6988             End Get
6989         End Property
6990         
6991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6993         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
6994             Get
6995                 Return Me.columnEmailID
6996             End Get
6997         End Property
6998         
6999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7001         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
7002             Get
7003                 Return Me.columnJoiningDate
7004             End Get
7005         End Property
7006         
7007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7009          Global.System.ComponentModel.Browsable(false)> _
7010         Public ReadOnly Property Count() As Integer
7011             Get
7012                 Return Me.Rows.Count
7013             End Get
7014         End Property
7015         
7016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7018         Public Default ReadOnly Property Item(ByVal index As Integer) As RegistrationRow
7019             Get
7020                 Return CType(Me.Rows(index),RegistrationRow)
7021             End Get
7022         End Property
7023         
7024         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7025         Public Event RegistrationRowChanging As RegistrationRowChangeEventHandler
7026         
7027         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7028         Public Event RegistrationRowChanged As RegistrationRowChangeEventHandler
7029         
7030         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7031         Public Event RegistrationRowDeleting As RegistrationRowChangeEventHandler
7032         
7033         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7034         Public Event RegistrationRowDeleted As RegistrationRowChangeEventHandler
7035         
7036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7038         Public Overloads Sub AddRegistrationRow(ByVal row As RegistrationRow)
7039             Me.Rows.Add(row)
7040         End Sub
7041         
7042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7044         Public Overloads Function AddRegistrationRow(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Date) As RegistrationRow
7045             Dim rowRegistrationRow As RegistrationRow = CType(Me.NewRow,RegistrationRow)
7046             Dim columnValuesArray() As Object = New Object() {UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate}
7047             rowRegistrationRow.ItemArray = columnValuesArray
7048             Me.Rows.Add(rowRegistrationRow)
7049             Return rowRegistrationRow
7050         End Function
7051         
7052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7054         Public Function FindByUserID(ByVal UserID As String) As RegistrationRow
7055             Return CType(Me.Rows.Find(New Object() {UserID}),RegistrationRow)
7056         End Function
7057         
7058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7060         Public Overrides Function Clone() As Global.System.Data.DataTable
7061             Dim cln As RegistrationDataTable = CType(MyBase.Clone,RegistrationDataTable)
7062             cln.InitVars
7063             Return cln
7064         End Function
7065         
7066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7068         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7069             Return New RegistrationDataTable()
7070         End Function
7071         
7072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7074         Friend Sub InitVars()
7075             Me.columnUserID = MyBase.Columns("UserID")
7076             Me.columnUserType = MyBase.Columns("UserType")
7077             Me.columnPassword = MyBase.Columns("Password")
7078             Me.columnName = MyBase.Columns("Name")
7079             Me.columnContactNo = MyBase.Columns("ContactNo")
7080             Me.columnEmailID = MyBase.Columns("EmailID")
7081             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
7082         End Sub
7083         
7084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7086         Private Sub InitClass()
7087             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7088             MyBase.Columns.Add(Me.columnUserID)
7089             Me.columnUserType = New Global.System.Data.DataColumn("UserType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7090             MyBase.Columns.Add(Me.columnUserType)
7091             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7092             MyBase.Columns.Add(Me.columnPassword)
7093             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7094             MyBase.Columns.Add(Me.columnName)
7095             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7096             MyBase.Columns.Add(Me.columnContactNo)
7097             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7098             MyBase.Columns.Add(Me.columnEmailID)
7099             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7100             MyBase.Columns.Add(Me.columnJoiningDate)
7101             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
7102             Me.columnUserID.AllowDBNull = false
7103             Me.columnUserID.Unique = true
7104             Me.columnUserID.MaxLength = 100
7105             Me.columnUserType.AllowDBNull = false
7106             Me.columnUserType.MaxLength = 150
7107             Me.columnPassword.AllowDBNull = false
7108             Me.columnPassword.MaxLength = 100
7109             Me.columnName.AllowDBNull = false
7110             Me.columnName.MaxLength = 200
7111             Me.columnContactNo.AllowDBNull = false
7112             Me.columnContactNo.MaxLength = 150
7113             Me.columnEmailID.MaxLength = 200
7114         End Sub
7115         
7116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7118         Public Function NewRegistrationRow() As RegistrationRow
7119             Return CType(Me.NewRow,RegistrationRow)
7120         End Function
7121         
7122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7124         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7125             Return New RegistrationRow(builder)
7126         End Function
7127         
7128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7130         Protected Overrides Function GetRowType() As Global.System.Type
7131             Return GetType(RegistrationRow)
7132         End Function
7133         
7134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7136         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7137             MyBase.OnRowChanged(e)
7138             If (Not (Me.RegistrationRowChangedEvent) Is Nothing) Then
7139                 RaiseEvent RegistrationRowChanged(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7140             End If
7141         End Sub
7142         
7143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7145         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7146             MyBase.OnRowChanging(e)
7147             If (Not (Me.RegistrationRowChangingEvent) Is Nothing) Then
7148                 RaiseEvent RegistrationRowChanging(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7149             End If
7150         End Sub
7151         
7152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7154         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7155             MyBase.OnRowDeleted(e)
7156             If (Not (Me.RegistrationRowDeletedEvent) Is Nothing) Then
7157                 RaiseEvent RegistrationRowDeleted(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7158             End If
7159         End Sub
7160         
7161         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7162          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7163         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7164             MyBase.OnRowDeleting(e)
7165             If (Not (Me.RegistrationRowDeletingEvent) Is Nothing) Then
7166                 RaiseEvent RegistrationRowDeleting(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7167             End If
7168         End Sub
7169         
7170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7172         Public Sub RemoveRegistrationRow(ByVal row As RegistrationRow)
7173             Me.Rows.Remove(row)
7174         End Sub
7175         
7176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7178         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7179             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7180             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7181             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
7182             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7183             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7184             any1.MinOccurs = New Decimal(0)
7185             any1.MaxOccurs = Decimal.MaxValue
7186             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7187             sequence.Items.Add(any1)
7188             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7189             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7190             any2.MinOccurs = New Decimal(1)
7191             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7192             sequence.Items.Add(any2)
7193             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7194             attribute1.Name = "namespace"
7195             attribute1.FixedValue = ds.Namespace
7196             type.Attributes.Add(attribute1)
7197             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7198             attribute2.Name = "tableTypeName"
7199             attribute2.FixedValue = "RegistrationDataTable"
7200             type.Attributes.Add(attribute2)
7201             type.Particle = sequence
7202             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7203             If xs.Contains(dsSchema.TargetNamespace) Then
7204                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7205                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7206                 Try
7207                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7208                     dsSchema.Write(s1)
7209                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7210                     Do While schemas.MoveNext
7211                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7212                         s2.SetLength(0)
7213                         schema.Write(s2)
7214                         If (s1.Length = s2.Length) Then
7215                             s1.Position = 0
7216                             s2.Position = 0
7217                             
7218                             Do While ((s1.Position <> s1.Length) _
7219                                         AndAlso (s1.ReadByte = s2.ReadByte))
7220                                 
7221                                 
7222                             Loop
7223                             If (s1.Position = s1.Length) Then
7224                                 Return type
7225                             End If
7226                         End If
7227                         
7228                     Loop
7229                 Finally
7230                     If (Not (s1) Is Nothing) Then
7231                         s1.Close
7232                     End If
7233                     If (Not (s2) Is Nothing) Then
7234                         s2.Close
7235                     End If
7236                 End Try
7237             End If
7238             xs.Add(dsSchema)
7239             Return type
7240         End Function
7241     End Class
7242     
7243     '''<summary>
7244     '''Represents the strongly named DataTable class.
7245     '''</summary>
7246     <Global.System.Serializable(), _
7247      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7248     Partial Public Class ServiceDataTable
7249         Inherits Global.System.Data.TypedTableBase(Of ServiceRow)
7250         
7251         Private columnS_ID As Global.System.Data.DataColumn
7252         
7253         Private columnServiceCode As Global.System.Data.DataColumn
7254         
7255         Private columnCustomerID As Global.System.Data.DataColumn
7256         
7257         Private columnServiceType As Global.System.Data.DataColumn
7258         
7259         Private columnServiceCreationDate As Global.System.Data.DataColumn
7260         
7261         Private columnItemDescription As Global.System.Data.DataColumn
7262         
7263         Private columnProblemDescription As Global.System.Data.DataColumn
7264         
7265         Private columnChargesQuote As Global.System.Data.DataColumn
7266         
7267         Private columnAdvanceDeposit As Global.System.Data.DataColumn
7268         
7269         Private columnEstimatedRepairDate As Global.System.Data.DataColumn
7270         
7271         Private columnRemarks As Global.System.Data.DataColumn
7272         
7273         Private columnStatus As Global.System.Data.DataColumn
7274         
7275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7277         Public Sub New()
7278             MyBase.New
7279             Me.TableName = "Service"
7280             Me.BeginInit
7281             Me.InitClass
7282             Me.EndInit
7283         End Sub
7284         
7285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7287         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7288             MyBase.New
7289             Me.TableName = table.TableName
7290             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7291                 Me.CaseSensitive = table.CaseSensitive
7292             End If
7293             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7294                 Me.Locale = table.Locale
7295             End If
7296             If (table.Namespace <> table.DataSet.Namespace) Then
7297                 Me.Namespace = table.Namespace
7298             End If
7299             Me.Prefix = table.Prefix
7300             Me.MinimumCapacity = table.MinimumCapacity
7301         End Sub
7302         
7303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7305         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7306             MyBase.New(info, context)
7307             Me.InitVars
7308         End Sub
7309         
7310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7312         Public ReadOnly Property S_IDColumn() As Global.System.Data.DataColumn
7313             Get
7314                 Return Me.columnS_ID
7315             End Get
7316         End Property
7317         
7318         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7319          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7320         Public ReadOnly Property ServiceCodeColumn() As Global.System.Data.DataColumn
7321             Get
7322                 Return Me.columnServiceCode
7323             End Get
7324         End Property
7325         
7326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7328         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
7329             Get
7330                 Return Me.columnCustomerID
7331             End Get
7332         End Property
7333         
7334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7336         Public ReadOnly Property ServiceTypeColumn() As Global.System.Data.DataColumn
7337             Get
7338                 Return Me.columnServiceType
7339             End Get
7340         End Property
7341         
7342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7344         Public ReadOnly Property ServiceCreationDateColumn() As Global.System.Data.DataColumn
7345             Get
7346                 Return Me.columnServiceCreationDate
7347             End Get
7348         End Property
7349         
7350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7352         Public ReadOnly Property ItemDescriptionColumn() As Global.System.Data.DataColumn
7353             Get
7354                 Return Me.columnItemDescription
7355             End Get
7356         End Property
7357         
7358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7360         Public ReadOnly Property ProblemDescriptionColumn() As Global.System.Data.DataColumn
7361             Get
7362                 Return Me.columnProblemDescription
7363             End Get
7364         End Property
7365         
7366         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7367          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7368         Public ReadOnly Property ChargesQuoteColumn() As Global.System.Data.DataColumn
7369             Get
7370                 Return Me.columnChargesQuote
7371             End Get
7372         End Property
7373         
7374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7376         Public ReadOnly Property AdvanceDepositColumn() As Global.System.Data.DataColumn
7377             Get
7378                 Return Me.columnAdvanceDeposit
7379             End Get
7380         End Property
7381         
7382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7384         Public ReadOnly Property EstimatedRepairDateColumn() As Global.System.Data.DataColumn
7385             Get
7386                 Return Me.columnEstimatedRepairDate
7387             End Get
7388         End Property
7389         
7390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7392         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
7393             Get
7394                 Return Me.columnRemarks
7395             End Get
7396         End Property
7397         
7398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7400         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
7401             Get
7402                 Return Me.columnStatus
7403             End Get
7404         End Property
7405         
7406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7408          Global.System.ComponentModel.Browsable(false)> _
7409         Public ReadOnly Property Count() As Integer
7410             Get
7411                 Return Me.Rows.Count
7412             End Get
7413         End Property
7414         
7415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7417         Public Default ReadOnly Property Item(ByVal index As Integer) As ServiceRow
7418             Get
7419                 Return CType(Me.Rows(index),ServiceRow)
7420             End Get
7421         End Property
7422         
7423         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7424         Public Event ServiceRowChanging As ServiceRowChangeEventHandler
7425         
7426         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7427         Public Event ServiceRowChanged As ServiceRowChangeEventHandler
7428         
7429         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7430         Public Event ServiceRowDeleting As ServiceRowChangeEventHandler
7431         
7432         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7433         Public Event ServiceRowDeleted As ServiceRowChangeEventHandler
7434         
7435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7437         Public Overloads Sub AddServiceRow(ByVal row As ServiceRow)
7438             Me.Rows.Add(row)
7439         End Sub
7440         
7441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7443         Public Overloads Function AddServiceRow(ByVal S_ID As Integer, ByVal ServiceCode As String, ByVal parentCustomerRowByFK_Service_Customer As CustomerRow, ByVal ServiceType As String, ByVal ServiceCreationDate As Date, ByVal ItemDescription As String, ByVal ProblemDescription As String, ByVal ChargesQuote As Decimal, ByVal AdvanceDeposit As Decimal, ByVal EstimatedRepairDate As Date, ByVal Remarks As String, ByVal Status As String) As ServiceRow
7444             Dim rowServiceRow As ServiceRow = CType(Me.NewRow,ServiceRow)
7445             Dim columnValuesArray() As Object = New Object() {S_ID, ServiceCode, Nothing, ServiceType, ServiceCreationDate, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, Remarks, Status}
7446             If (Not (parentCustomerRowByFK_Service_Customer) Is Nothing) Then
7447                 columnValuesArray(2) = parentCustomerRowByFK_Service_Customer(0)
7448             End If
7449             rowServiceRow.ItemArray = columnValuesArray
7450             Me.Rows.Add(rowServiceRow)
7451             Return rowServiceRow
7452         End Function
7453         
7454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7456         Public Function FindByS_ID(ByVal S_ID As Integer) As ServiceRow
7457             Return CType(Me.Rows.Find(New Object() {S_ID}),ServiceRow)
7458         End Function
7459         
7460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7462         Public Overrides Function Clone() As Global.System.Data.DataTable
7463             Dim cln As ServiceDataTable = CType(MyBase.Clone,ServiceDataTable)
7464             cln.InitVars
7465             Return cln
7466         End Function
7467         
7468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7470         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7471             Return New ServiceDataTable()
7472         End Function
7473         
7474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7476         Friend Sub InitVars()
7477             Me.columnS_ID = MyBase.Columns("S_ID")
7478             Me.columnServiceCode = MyBase.Columns("ServiceCode")
7479             Me.columnCustomerID = MyBase.Columns("CustomerID")
7480             Me.columnServiceType = MyBase.Columns("ServiceType")
7481             Me.columnServiceCreationDate = MyBase.Columns("ServiceCreationDate")
7482             Me.columnItemDescription = MyBase.Columns("ItemDescription")
7483             Me.columnProblemDescription = MyBase.Columns("ProblemDescription")
7484             Me.columnChargesQuote = MyBase.Columns("ChargesQuote")
7485             Me.columnAdvanceDeposit = MyBase.Columns("AdvanceDeposit")
7486             Me.columnEstimatedRepairDate = MyBase.Columns("EstimatedRepairDate")
7487             Me.columnRemarks = MyBase.Columns("Remarks")
7488             Me.columnStatus = MyBase.Columns("Status")
7489         End Sub
7490         
7491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7493         Private Sub InitClass()
7494             Me.columnS_ID = New Global.System.Data.DataColumn("S_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7495             MyBase.Columns.Add(Me.columnS_ID)
7496             Me.columnServiceCode = New Global.System.Data.DataColumn("ServiceCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7497             MyBase.Columns.Add(Me.columnServiceCode)
7498             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7499             MyBase.Columns.Add(Me.columnCustomerID)
7500             Me.columnServiceType = New Global.System.Data.DataColumn("ServiceType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7501             MyBase.Columns.Add(Me.columnServiceType)
7502             Me.columnServiceCreationDate = New Global.System.Data.DataColumn("ServiceCreationDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7503             MyBase.Columns.Add(Me.columnServiceCreationDate)
7504             Me.columnItemDescription = New Global.System.Data.DataColumn("ItemDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7505             MyBase.Columns.Add(Me.columnItemDescription)
7506             Me.columnProblemDescription = New Global.System.Data.DataColumn("ProblemDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7507             MyBase.Columns.Add(Me.columnProblemDescription)
7508             Me.columnChargesQuote = New Global.System.Data.DataColumn("ChargesQuote", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7509             MyBase.Columns.Add(Me.columnChargesQuote)
7510             Me.columnAdvanceDeposit = New Global.System.Data.DataColumn("AdvanceDeposit", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7511             MyBase.Columns.Add(Me.columnAdvanceDeposit)
7512             Me.columnEstimatedRepairDate = New Global.System.Data.DataColumn("EstimatedRepairDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7513             MyBase.Columns.Add(Me.columnEstimatedRepairDate)
7514             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7515             MyBase.Columns.Add(Me.columnRemarks)
7516             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7517             MyBase.Columns.Add(Me.columnStatus)
7518             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnS_ID}, true))
7519             Me.columnS_ID.AllowDBNull = false
7520             Me.columnS_ID.Unique = true
7521             Me.columnServiceCode.AllowDBNull = false
7522             Me.columnServiceCode.MaxLength = 30
7523             Me.columnCustomerID.AllowDBNull = false
7524             Me.columnServiceType.MaxLength = 150
7525             Me.columnServiceCreationDate.AllowDBNull = false
7526             Me.columnItemDescription.AllowDBNull = false
7527             Me.columnItemDescription.MaxLength = 2147483647
7528             Me.columnProblemDescription.MaxLength = 2147483647
7529             Me.columnChargesQuote.AllowDBNull = false
7530             Me.columnAdvanceDeposit.AllowDBNull = false
7531             Me.columnEstimatedRepairDate.AllowDBNull = false
7532             Me.columnRemarks.MaxLength = 2147483647
7533             Me.columnStatus.AllowDBNull = false
7534             Me.columnStatus.MaxLength = 30
7535         End Sub
7536         
7537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7539         Public Function NewServiceRow() As ServiceRow
7540             Return CType(Me.NewRow,ServiceRow)
7541         End Function
7542         
7543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7545         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7546             Return New ServiceRow(builder)
7547         End Function
7548         
7549         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7550          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7551         Protected Overrides Function GetRowType() As Global.System.Type
7552             Return GetType(ServiceRow)
7553         End Function
7554         
7555         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7556          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7557         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7558             MyBase.OnRowChanged(e)
7559             If (Not (Me.ServiceRowChangedEvent) Is Nothing) Then
7560                 RaiseEvent ServiceRowChanged(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7561             End If
7562         End Sub
7563         
7564         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7565          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7566         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7567             MyBase.OnRowChanging(e)
7568             If (Not (Me.ServiceRowChangingEvent) Is Nothing) Then
7569                 RaiseEvent ServiceRowChanging(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7570             End If
7571         End Sub
7572         
7573         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7574          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7575         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7576             MyBase.OnRowDeleted(e)
7577             If (Not (Me.ServiceRowDeletedEvent) Is Nothing) Then
7578                 RaiseEvent ServiceRowDeleted(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7579             End If
7580         End Sub
7581         
7582         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7583          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7584         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7585             MyBase.OnRowDeleting(e)
7586             If (Not (Me.ServiceRowDeletingEvent) Is Nothing) Then
7587                 RaiseEvent ServiceRowDeleting(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7588             End If
7589         End Sub
7590         
7591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7593         Public Sub RemoveServiceRow(ByVal row As ServiceRow)
7594             Me.Rows.Remove(row)
7595         End Sub
7596         
7597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7599         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7600             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7601             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7602             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
7603             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7604             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7605             any1.MinOccurs = New Decimal(0)
7606             any1.MaxOccurs = Decimal.MaxValue
7607             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7608             sequence.Items.Add(any1)
7609             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7610             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7611             any2.MinOccurs = New Decimal(1)
7612             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7613             sequence.Items.Add(any2)
7614             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7615             attribute1.Name = "namespace"
7616             attribute1.FixedValue = ds.Namespace
7617             type.Attributes.Add(attribute1)
7618             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7619             attribute2.Name = "tableTypeName"
7620             attribute2.FixedValue = "ServiceDataTable"
7621             type.Attributes.Add(attribute2)
7622             type.Particle = sequence
7623             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7624             If xs.Contains(dsSchema.TargetNamespace) Then
7625                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7626                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7627                 Try
7628                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7629                     dsSchema.Write(s1)
7630                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7631                     Do While schemas.MoveNext
7632                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7633                         s2.SetLength(0)
7634                         schema.Write(s2)
7635                         If (s1.Length = s2.Length) Then
7636                             s1.Position = 0
7637                             s2.Position = 0
7638                             
7639                             Do While ((s1.Position <> s1.Length) _
7640                                         AndAlso (s1.ReadByte = s2.ReadByte))
7641                                 
7642                                 
7643                             Loop
7644                             If (s1.Position = s1.Length) Then
7645                                 Return type
7646                             End If
7647                         End If
7648                         
7649                     Loop
7650                 Finally
7651                     If (Not (s1) Is Nothing) Then
7652                         s1.Close
7653                     End If
7654                     If (Not (s2) Is Nothing) Then
7655                         s2.Close
7656                     End If
7657                 End Try
7658             End If
7659             xs.Add(dsSchema)
7660             Return type
7661         End Function
7662     End Class
7663     
7664     '''<summary>
7665     '''Represents the strongly named DataTable class.
7666     '''</summary>
7667     <Global.System.Serializable(), _
7668      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7669     Partial Public Class StockDataTable
7670         Inherits Global.System.Data.TypedTableBase(Of StockRow)
7671         
7672         Private columnST_ID As Global.System.Data.DataColumn
7673         
7674         Private columnStock_ID As Global.System.Data.DataColumn
7675         
7676         Private columnDate As Global.System.Data.DataColumn
7677         
7678         Private columnSupplierID As Global.System.Data.DataColumn
7679         
7680         Private columnGrandTotal As Global.System.Data.DataColumn
7681         
7682         Private columnTotalPayment As Global.System.Data.DataColumn
7683         
7684         Private columnPaymentDue As Global.System.Data.DataColumn
7685         
7686         Private columnRemarks As Global.System.Data.DataColumn
7687         
7688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7690         Public Sub New()
7691             MyBase.New
7692             Me.TableName = "Stock"
7693             Me.BeginInit
7694             Me.InitClass
7695             Me.EndInit
7696         End Sub
7697         
7698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7700         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7701             MyBase.New
7702             Me.TableName = table.TableName
7703             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7704                 Me.CaseSensitive = table.CaseSensitive
7705             End If
7706             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7707                 Me.Locale = table.Locale
7708             End If
7709             If (table.Namespace <> table.DataSet.Namespace) Then
7710                 Me.Namespace = table.Namespace
7711             End If
7712             Me.Prefix = table.Prefix
7713             Me.MinimumCapacity = table.MinimumCapacity
7714         End Sub
7715         
7716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7718         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7719             MyBase.New(info, context)
7720             Me.InitVars
7721         End Sub
7722         
7723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7725         Public ReadOnly Property ST_IDColumn() As Global.System.Data.DataColumn
7726             Get
7727                 Return Me.columnST_ID
7728             End Get
7729         End Property
7730         
7731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7733         Public ReadOnly Property Stock_IDColumn() As Global.System.Data.DataColumn
7734             Get
7735                 Return Me.columnStock_ID
7736             End Get
7737         End Property
7738         
7739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7741         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
7742             Get
7743                 Return Me.columnDate
7744             End Get
7745         End Property
7746         
7747         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7748          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7749         Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
7750             Get
7751                 Return Me.columnSupplierID
7752             End Get
7753         End Property
7754         
7755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7757         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
7758             Get
7759                 Return Me.columnGrandTotal
7760             End Get
7761         End Property
7762         
7763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7765         Public ReadOnly Property TotalPaymentColumn() As Global.System.Data.DataColumn
7766             Get
7767                 Return Me.columnTotalPayment
7768             End Get
7769         End Property
7770         
7771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7773         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
7774             Get
7775                 Return Me.columnPaymentDue
7776             End Get
7777         End Property
7778         
7779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7781         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
7782             Get
7783                 Return Me.columnRemarks
7784             End Get
7785         End Property
7786         
7787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7789          Global.System.ComponentModel.Browsable(false)> _
7790         Public ReadOnly Property Count() As Integer
7791             Get
7792                 Return Me.Rows.Count
7793             End Get
7794         End Property
7795         
7796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7798         Public Default ReadOnly Property Item(ByVal index As Integer) As StockRow
7799             Get
7800                 Return CType(Me.Rows(index),StockRow)
7801             End Get
7802         End Property
7803         
7804         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7805         Public Event StockRowChanging As StockRowChangeEventHandler
7806         
7807         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7808         Public Event StockRowChanged As StockRowChangeEventHandler
7809         
7810         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7811         Public Event StockRowDeleting As StockRowChangeEventHandler
7812         
7813         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7814         Public Event StockRowDeleted As StockRowChangeEventHandler
7815         
7816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7818         Public Overloads Sub AddStockRow(ByVal row As StockRow)
7819             Me.Rows.Add(row)
7820         End Sub
7821         
7822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7824         Public Overloads Function AddStockRow(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal parentSupplierRowByFK_Stock_Supplier As SupplierRow, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String) As StockRow
7825             Dim rowStockRow As StockRow = CType(Me.NewRow,StockRow)
7826             Dim columnValuesArray() As Object = New Object() {ST_ID, Stock_ID, _Date, Nothing, GrandTotal, TotalPayment, PaymentDue, Remarks}
7827             If (Not (parentSupplierRowByFK_Stock_Supplier) Is Nothing) Then
7828                 columnValuesArray(3) = parentSupplierRowByFK_Stock_Supplier(0)
7829             End If
7830             rowStockRow.ItemArray = columnValuesArray
7831             Me.Rows.Add(rowStockRow)
7832             Return rowStockRow
7833         End Function
7834         
7835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7837         Public Function FindByST_ID(ByVal ST_ID As Integer) As StockRow
7838             Return CType(Me.Rows.Find(New Object() {ST_ID}),StockRow)
7839         End Function
7840         
7841         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7842          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7843         Public Overrides Function Clone() As Global.System.Data.DataTable
7844             Dim cln As StockDataTable = CType(MyBase.Clone,StockDataTable)
7845             cln.InitVars
7846             Return cln
7847         End Function
7848         
7849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7851         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7852             Return New StockDataTable()
7853         End Function
7854         
7855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7857         Friend Sub InitVars()
7858             Me.columnST_ID = MyBase.Columns("ST_ID")
7859             Me.columnStock_ID = MyBase.Columns("Stock_ID")
7860             Me.columnDate = MyBase.Columns("Date")
7861             Me.columnSupplierID = MyBase.Columns("SupplierID")
7862             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
7863             Me.columnTotalPayment = MyBase.Columns("TotalPayment")
7864             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
7865             Me.columnRemarks = MyBase.Columns("Remarks")
7866         End Sub
7867         
7868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7870         Private Sub InitClass()
7871             Me.columnST_ID = New Global.System.Data.DataColumn("ST_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7872             MyBase.Columns.Add(Me.columnST_ID)
7873             Me.columnStock_ID = New Global.System.Data.DataColumn("Stock_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7874             MyBase.Columns.Add(Me.columnStock_ID)
7875             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7876             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
7877             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
7878             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
7879             MyBase.Columns.Add(Me.columnDate)
7880             Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7881             MyBase.Columns.Add(Me.columnSupplierID)
7882             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7883             MyBase.Columns.Add(Me.columnGrandTotal)
7884             Me.columnTotalPayment = New Global.System.Data.DataColumn("TotalPayment", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7885             MyBase.Columns.Add(Me.columnTotalPayment)
7886             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7887             MyBase.Columns.Add(Me.columnPaymentDue)
7888             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7889             MyBase.Columns.Add(Me.columnRemarks)
7890             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnST_ID}, true))
7891             Me.columnST_ID.AllowDBNull = false
7892             Me.columnST_ID.Unique = true
7893             Me.columnStock_ID.AllowDBNull = false
7894             Me.columnStock_ID.MaxLength = 30
7895             Me.columnDate.AllowDBNull = false
7896             Me.columnSupplierID.AllowDBNull = false
7897             Me.columnGrandTotal.AllowDBNull = false
7898             Me.columnTotalPayment.AllowDBNull = false
7899             Me.columnPaymentDue.AllowDBNull = false
7900             Me.columnRemarks.MaxLength = 2147483647
7901         End Sub
7902         
7903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7905         Public Function NewStockRow() As StockRow
7906             Return CType(Me.NewRow,StockRow)
7907         End Function
7908         
7909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7911         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7912             Return New StockRow(builder)
7913         End Function
7914         
7915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7917         Protected Overrides Function GetRowType() As Global.System.Type
7918             Return GetType(StockRow)
7919         End Function
7920         
7921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7923         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7924             MyBase.OnRowChanged(e)
7925             If (Not (Me.StockRowChangedEvent) Is Nothing) Then
7926                 RaiseEvent StockRowChanged(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
7927             End If
7928         End Sub
7929         
7930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7932         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7933             MyBase.OnRowChanging(e)
7934             If (Not (Me.StockRowChangingEvent) Is Nothing) Then
7935                 RaiseEvent StockRowChanging(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
7936             End If
7937         End Sub
7938         
7939         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7940          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7941         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7942             MyBase.OnRowDeleted(e)
7943             If (Not (Me.StockRowDeletedEvent) Is Nothing) Then
7944                 RaiseEvent StockRowDeleted(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
7945             End If
7946         End Sub
7947         
7948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7950         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7951             MyBase.OnRowDeleting(e)
7952             If (Not (Me.StockRowDeletingEvent) Is Nothing) Then
7953                 RaiseEvent StockRowDeleting(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
7954             End If
7955         End Sub
7956         
7957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7959         Public Sub RemoveStockRow(ByVal row As StockRow)
7960             Me.Rows.Remove(row)
7961         End Sub
7962         
7963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7965         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7966             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7967             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7968             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
7969             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7970             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7971             any1.MinOccurs = New Decimal(0)
7972             any1.MaxOccurs = Decimal.MaxValue
7973             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7974             sequence.Items.Add(any1)
7975             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7976             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7977             any2.MinOccurs = New Decimal(1)
7978             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7979             sequence.Items.Add(any2)
7980             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7981             attribute1.Name = "namespace"
7982             attribute1.FixedValue = ds.Namespace
7983             type.Attributes.Add(attribute1)
7984             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7985             attribute2.Name = "tableTypeName"
7986             attribute2.FixedValue = "StockDataTable"
7987             type.Attributes.Add(attribute2)
7988             type.Particle = sequence
7989             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7990             If xs.Contains(dsSchema.TargetNamespace) Then
7991                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7992                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7993                 Try
7994                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7995                     dsSchema.Write(s1)
7996                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7997                     Do While schemas.MoveNext
7998                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7999                         s2.SetLength(0)
8000                         schema.Write(s2)
8001                         If (s1.Length = s2.Length) Then
8002                             s1.Position = 0
8003                             s2.Position = 0
8004                             
8005                             Do While ((s1.Position <> s1.Length) _
8006                                         AndAlso (s1.ReadByte = s2.ReadByte))
8007                                 
8008                                 
8009                             Loop
8010                             If (s1.Position = s1.Length) Then
8011                                 Return type
8012                             End If
8013                         End If
8014                         
8015                     Loop
8016                 Finally
8017                     If (Not (s1) Is Nothing) Then
8018                         s1.Close
8019                     End If
8020                     If (Not (s2) Is Nothing) Then
8021                         s2.Close
8022                     End If
8023                 End Try
8024             End If
8025             xs.Add(dsSchema)
8026             Return type
8027         End Function
8028     End Class
8029     
8030     '''<summary>
8031     '''Represents the strongly named DataTable class.
8032     '''</summary>
8033     <Global.System.Serializable(), _
8034      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8035     Partial Public Class Stock_ProductDataTable
8036         Inherits Global.System.Data.TypedTableBase(Of Stock_ProductRow)
8037         
8038         Private columnSP_ID As Global.System.Data.DataColumn
8039         
8040         Private columnStockID As Global.System.Data.DataColumn
8041         
8042         Private columnProductID As Global.System.Data.DataColumn
8043         
8044         Private columnQty As Global.System.Data.DataColumn
8045         
8046         Private columnPrice As Global.System.Data.DataColumn
8047         
8048         Private columnTotalAmount As Global.System.Data.DataColumn
8049         
8050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8052         Public Sub New()
8053             MyBase.New
8054             Me.TableName = "Stock_Product"
8055             Me.BeginInit
8056             Me.InitClass
8057             Me.EndInit
8058         End Sub
8059         
8060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8062         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8063             MyBase.New
8064             Me.TableName = table.TableName
8065             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8066                 Me.CaseSensitive = table.CaseSensitive
8067             End If
8068             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8069                 Me.Locale = table.Locale
8070             End If
8071             If (table.Namespace <> table.DataSet.Namespace) Then
8072                 Me.Namespace = table.Namespace
8073             End If
8074             Me.Prefix = table.Prefix
8075             Me.MinimumCapacity = table.MinimumCapacity
8076         End Sub
8077         
8078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8080         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8081             MyBase.New(info, context)
8082             Me.InitVars
8083         End Sub
8084         
8085         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8086          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8087         Public ReadOnly Property SP_IDColumn() As Global.System.Data.DataColumn
8088             Get
8089                 Return Me.columnSP_ID
8090             End Get
8091         End Property
8092         
8093         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8094          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8095         Public ReadOnly Property StockIDColumn() As Global.System.Data.DataColumn
8096             Get
8097                 Return Me.columnStockID
8098             End Get
8099         End Property
8100         
8101         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8102          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8103         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
8104             Get
8105                 Return Me.columnProductID
8106             End Get
8107         End Property
8108         
8109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8111         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
8112             Get
8113                 Return Me.columnQty
8114             End Get
8115         End Property
8116         
8117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8119         Public ReadOnly Property PriceColumn() As Global.System.Data.DataColumn
8120             Get
8121                 Return Me.columnPrice
8122             End Get
8123         End Property
8124         
8125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8127         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
8128             Get
8129                 Return Me.columnTotalAmount
8130             End Get
8131         End Property
8132         
8133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8135          Global.System.ComponentModel.Browsable(false)> _
8136         Public ReadOnly Property Count() As Integer
8137             Get
8138                 Return Me.Rows.Count
8139             End Get
8140         End Property
8141         
8142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8144         Public Default ReadOnly Property Item(ByVal index As Integer) As Stock_ProductRow
8145             Get
8146                 Return CType(Me.Rows(index),Stock_ProductRow)
8147             End Get
8148         End Property
8149         
8150         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8151         Public Event Stock_ProductRowChanging As Stock_ProductRowChangeEventHandler
8152         
8153         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8154         Public Event Stock_ProductRowChanged As Stock_ProductRowChangeEventHandler
8155         
8156         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8157         Public Event Stock_ProductRowDeleting As Stock_ProductRowChangeEventHandler
8158         
8159         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8160         Public Event Stock_ProductRowDeleted As Stock_ProductRowChangeEventHandler
8161         
8162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8164         Public Overloads Sub AddStock_ProductRow(ByVal row As Stock_ProductRow)
8165             Me.Rows.Add(row)
8166         End Sub
8167         
8168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8170         Public Overloads Function AddStock_ProductRow(ByVal parentStockRowByFK_Stock_Product_Stock As StockRow, ByVal parentProductRowByFK_Stock_Product_Product As ProductRow, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal) As Stock_ProductRow
8171             Dim rowStock_ProductRow As Stock_ProductRow = CType(Me.NewRow,Stock_ProductRow)
8172             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Qty, Price, TotalAmount}
8173             If (Not (parentStockRowByFK_Stock_Product_Stock) Is Nothing) Then
8174                 columnValuesArray(1) = parentStockRowByFK_Stock_Product_Stock(0)
8175             End If
8176             If (Not (parentProductRowByFK_Stock_Product_Product) Is Nothing) Then
8177                 columnValuesArray(2) = parentProductRowByFK_Stock_Product_Product(0)
8178             End If
8179             rowStock_ProductRow.ItemArray = columnValuesArray
8180             Me.Rows.Add(rowStock_ProductRow)
8181             Return rowStock_ProductRow
8182         End Function
8183         
8184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8186         Public Function FindBySP_ID(ByVal SP_ID As Integer) As Stock_ProductRow
8187             Return CType(Me.Rows.Find(New Object() {SP_ID}),Stock_ProductRow)
8188         End Function
8189         
8190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8192         Public Overrides Function Clone() As Global.System.Data.DataTable
8193             Dim cln As Stock_ProductDataTable = CType(MyBase.Clone,Stock_ProductDataTable)
8194             cln.InitVars
8195             Return cln
8196         End Function
8197         
8198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8200         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8201             Return New Stock_ProductDataTable()
8202         End Function
8203         
8204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8206         Friend Sub InitVars()
8207             Me.columnSP_ID = MyBase.Columns("SP_ID")
8208             Me.columnStockID = MyBase.Columns("StockID")
8209             Me.columnProductID = MyBase.Columns("ProductID")
8210             Me.columnQty = MyBase.Columns("Qty")
8211             Me.columnPrice = MyBase.Columns("Price")
8212             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
8213         End Sub
8214         
8215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8217         Private Sub InitClass()
8218             Me.columnSP_ID = New Global.System.Data.DataColumn("SP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8219             MyBase.Columns.Add(Me.columnSP_ID)
8220             Me.columnStockID = New Global.System.Data.DataColumn("StockID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8221             MyBase.Columns.Add(Me.columnStockID)
8222             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8223             MyBase.Columns.Add(Me.columnProductID)
8224             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8225             MyBase.Columns.Add(Me.columnQty)
8226             Me.columnPrice = New Global.System.Data.DataColumn("Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8227             MyBase.Columns.Add(Me.columnPrice)
8228             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8229             MyBase.Columns.Add(Me.columnTotalAmount)
8230             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSP_ID}, true))
8231             Me.columnSP_ID.AutoIncrement = true
8232             Me.columnSP_ID.AutoIncrementSeed = -1
8233             Me.columnSP_ID.AutoIncrementStep = -1
8234             Me.columnSP_ID.AllowDBNull = false
8235             Me.columnSP_ID.ReadOnly = true
8236             Me.columnSP_ID.Unique = true
8237             Me.columnStockID.AllowDBNull = false
8238             Me.columnProductID.AllowDBNull = false
8239             Me.columnQty.AllowDBNull = false
8240             Me.columnPrice.AllowDBNull = false
8241             Me.columnTotalAmount.AllowDBNull = false
8242         End Sub
8243         
8244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8246         Public Function NewStock_ProductRow() As Stock_ProductRow
8247             Return CType(Me.NewRow,Stock_ProductRow)
8248         End Function
8249         
8250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8252         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8253             Return New Stock_ProductRow(builder)
8254         End Function
8255         
8256         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8257          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8258         Protected Overrides Function GetRowType() As Global.System.Type
8259             Return GetType(Stock_ProductRow)
8260         End Function
8261         
8262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8264         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8265             MyBase.OnRowChanged(e)
8266             If (Not (Me.Stock_ProductRowChangedEvent) Is Nothing) Then
8267                 RaiseEvent Stock_ProductRowChanged(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8268             End If
8269         End Sub
8270         
8271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8273         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8274             MyBase.OnRowChanging(e)
8275             If (Not (Me.Stock_ProductRowChangingEvent) Is Nothing) Then
8276                 RaiseEvent Stock_ProductRowChanging(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8277             End If
8278         End Sub
8279         
8280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8282         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8283             MyBase.OnRowDeleted(e)
8284             If (Not (Me.Stock_ProductRowDeletedEvent) Is Nothing) Then
8285                 RaiseEvent Stock_ProductRowDeleted(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8286             End If
8287         End Sub
8288         
8289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8291         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8292             MyBase.OnRowDeleting(e)
8293             If (Not (Me.Stock_ProductRowDeletingEvent) Is Nothing) Then
8294                 RaiseEvent Stock_ProductRowDeleting(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8295             End If
8296         End Sub
8297         
8298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8300         Public Sub RemoveStock_ProductRow(ByVal row As Stock_ProductRow)
8301             Me.Rows.Remove(row)
8302         End Sub
8303         
8304         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8305          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8306         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8307             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8308             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8309             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
8310             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8311             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8312             any1.MinOccurs = New Decimal(0)
8313             any1.MaxOccurs = Decimal.MaxValue
8314             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8315             sequence.Items.Add(any1)
8316             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8317             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8318             any2.MinOccurs = New Decimal(1)
8319             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8320             sequence.Items.Add(any2)
8321             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8322             attribute1.Name = "namespace"
8323             attribute1.FixedValue = ds.Namespace
8324             type.Attributes.Add(attribute1)
8325             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8326             attribute2.Name = "tableTypeName"
8327             attribute2.FixedValue = "Stock_ProductDataTable"
8328             type.Attributes.Add(attribute2)
8329             type.Particle = sequence
8330             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8331             If xs.Contains(dsSchema.TargetNamespace) Then
8332                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8333                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8334                 Try
8335                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8336                     dsSchema.Write(s1)
8337                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8338                     Do While schemas.MoveNext
8339                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8340                         s2.SetLength(0)
8341                         schema.Write(s2)
8342                         If (s1.Length = s2.Length) Then
8343                             s1.Position = 0
8344                             s2.Position = 0
8345                             
8346                             Do While ((s1.Position <> s1.Length) _
8347                                         AndAlso (s1.ReadByte = s2.ReadByte))
8348                                 
8349                                 
8350                             Loop
8351                             If (s1.Position = s1.Length) Then
8352                                 Return type
8353                             End If
8354                         End If
8355                         
8356                     Loop
8357                 Finally
8358                     If (Not (s1) Is Nothing) Then
8359                         s1.Close
8360                     End If
8361                     If (Not (s2) Is Nothing) Then
8362                         s2.Close
8363                     End If
8364                 End Try
8365             End If
8366             xs.Add(dsSchema)
8367             Return type
8368         End Function
8369     End Class
8370     
8371     '''<summary>
8372     '''Represents the strongly named DataTable class.
8373     '''</summary>
8374     <Global.System.Serializable(), _
8375      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8376     Partial Public Class SubCategoryDataTable
8377         Inherits Global.System.Data.TypedTableBase(Of SubCategoryRow)
8378         
8379         Private columnID As Global.System.Data.DataColumn
8380         
8381         Private columnSubCategoryName As Global.System.Data.DataColumn
8382         
8383         Private columnCategory As Global.System.Data.DataColumn
8384         
8385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8387         Public Sub New()
8388             MyBase.New
8389             Me.TableName = "SubCategory"
8390             Me.BeginInit
8391             Me.InitClass
8392             Me.EndInit
8393         End Sub
8394         
8395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8397         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8398             MyBase.New
8399             Me.TableName = table.TableName
8400             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8401                 Me.CaseSensitive = table.CaseSensitive
8402             End If
8403             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8404                 Me.Locale = table.Locale
8405             End If
8406             If (table.Namespace <> table.DataSet.Namespace) Then
8407                 Me.Namespace = table.Namespace
8408             End If
8409             Me.Prefix = table.Prefix
8410             Me.MinimumCapacity = table.MinimumCapacity
8411         End Sub
8412         
8413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8415         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8416             MyBase.New(info, context)
8417             Me.InitVars
8418         End Sub
8419         
8420         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8421          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8422         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
8423             Get
8424                 Return Me.columnID
8425             End Get
8426         End Property
8427         
8428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8430         Public ReadOnly Property SubCategoryNameColumn() As Global.System.Data.DataColumn
8431             Get
8432                 Return Me.columnSubCategoryName
8433             End Get
8434         End Property
8435         
8436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8438         Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn
8439             Get
8440                 Return Me.columnCategory
8441             End Get
8442         End Property
8443         
8444         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8445          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8446          Global.System.ComponentModel.Browsable(false)> _
8447         Public ReadOnly Property Count() As Integer
8448             Get
8449                 Return Me.Rows.Count
8450             End Get
8451         End Property
8452         
8453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8455         Public Default ReadOnly Property Item(ByVal index As Integer) As SubCategoryRow
8456             Get
8457                 Return CType(Me.Rows(index),SubCategoryRow)
8458             End Get
8459         End Property
8460         
8461         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8462         Public Event SubCategoryRowChanging As SubCategoryRowChangeEventHandler
8463         
8464         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8465         Public Event SubCategoryRowChanged As SubCategoryRowChangeEventHandler
8466         
8467         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8468         Public Event SubCategoryRowDeleting As SubCategoryRowChangeEventHandler
8469         
8470         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8471         Public Event SubCategoryRowDeleted As SubCategoryRowChangeEventHandler
8472         
8473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8475         Public Overloads Sub AddSubCategoryRow(ByVal row As SubCategoryRow)
8476             Me.Rows.Add(row)
8477         End Sub
8478         
8479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8481         Public Overloads Function AddSubCategoryRow(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal parentCategoryRowByFK_SubCategory_Category As CategoryRow) As SubCategoryRow
8482             Dim rowSubCategoryRow As SubCategoryRow = CType(Me.NewRow,SubCategoryRow)
8483             Dim columnValuesArray() As Object = New Object() {ID, SubCategoryName, Nothing}
8484             If (Not (parentCategoryRowByFK_SubCategory_Category) Is Nothing) Then
8485                 columnValuesArray(2) = parentCategoryRowByFK_SubCategory_Category(0)
8486             End If
8487             rowSubCategoryRow.ItemArray = columnValuesArray
8488             Me.Rows.Add(rowSubCategoryRow)
8489             Return rowSubCategoryRow
8490         End Function
8491         
8492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8494         Public Function FindByID(ByVal ID As Integer) As SubCategoryRow
8495             Return CType(Me.Rows.Find(New Object() {ID}),SubCategoryRow)
8496         End Function
8497         
8498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8500         Public Overrides Function Clone() As Global.System.Data.DataTable
8501             Dim cln As SubCategoryDataTable = CType(MyBase.Clone,SubCategoryDataTable)
8502             cln.InitVars
8503             Return cln
8504         End Function
8505         
8506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8508         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8509             Return New SubCategoryDataTable()
8510         End Function
8511         
8512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8514         Friend Sub InitVars()
8515             Me.columnID = MyBase.Columns("ID")
8516             Me.columnSubCategoryName = MyBase.Columns("SubCategoryName")
8517             Me.columnCategory = MyBase.Columns("Category")
8518         End Sub
8519         
8520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8522         Private Sub InitClass()
8523             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8524             MyBase.Columns.Add(Me.columnID)
8525             Me.columnSubCategoryName = New Global.System.Data.DataColumn("SubCategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8526             MyBase.Columns.Add(Me.columnSubCategoryName)
8527             Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8528             MyBase.Columns.Add(Me.columnCategory)
8529             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
8530             Me.columnID.AllowDBNull = false
8531             Me.columnID.Unique = true
8532             Me.columnSubCategoryName.AllowDBNull = false
8533             Me.columnSubCategoryName.MaxLength = 150
8534             Me.columnCategory.AllowDBNull = false
8535             Me.columnCategory.MaxLength = 150
8536         End Sub
8537         
8538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8540         Public Function NewSubCategoryRow() As SubCategoryRow
8541             Return CType(Me.NewRow,SubCategoryRow)
8542         End Function
8543         
8544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8546         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8547             Return New SubCategoryRow(builder)
8548         End Function
8549         
8550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8552         Protected Overrides Function GetRowType() As Global.System.Type
8553             Return GetType(SubCategoryRow)
8554         End Function
8555         
8556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8558         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8559             MyBase.OnRowChanged(e)
8560             If (Not (Me.SubCategoryRowChangedEvent) Is Nothing) Then
8561                 RaiseEvent SubCategoryRowChanged(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
8562             End If
8563         End Sub
8564         
8565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8567         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8568             MyBase.OnRowChanging(e)
8569             If (Not (Me.SubCategoryRowChangingEvent) Is Nothing) Then
8570                 RaiseEvent SubCategoryRowChanging(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
8571             End If
8572         End Sub
8573         
8574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8576         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8577             MyBase.OnRowDeleted(e)
8578             If (Not (Me.SubCategoryRowDeletedEvent) Is Nothing) Then
8579                 RaiseEvent SubCategoryRowDeleted(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
8580             End If
8581         End Sub
8582         
8583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8585         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8586             MyBase.OnRowDeleting(e)
8587             If (Not (Me.SubCategoryRowDeletingEvent) Is Nothing) Then
8588                 RaiseEvent SubCategoryRowDeleting(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
8589             End If
8590         End Sub
8591         
8592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8594         Public Sub RemoveSubCategoryRow(ByVal row As SubCategoryRow)
8595             Me.Rows.Remove(row)
8596         End Sub
8597         
8598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8600         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8601             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8602             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8603             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
8604             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8605             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8606             any1.MinOccurs = New Decimal(0)
8607             any1.MaxOccurs = Decimal.MaxValue
8608             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8609             sequence.Items.Add(any1)
8610             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8611             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8612             any2.MinOccurs = New Decimal(1)
8613             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8614             sequence.Items.Add(any2)
8615             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8616             attribute1.Name = "namespace"
8617             attribute1.FixedValue = ds.Namespace
8618             type.Attributes.Add(attribute1)
8619             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8620             attribute2.Name = "tableTypeName"
8621             attribute2.FixedValue = "SubCategoryDataTable"
8622             type.Attributes.Add(attribute2)
8623             type.Particle = sequence
8624             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8625             If xs.Contains(dsSchema.TargetNamespace) Then
8626                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8627                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8628                 Try
8629                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8630                     dsSchema.Write(s1)
8631                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8632                     Do While schemas.MoveNext
8633                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8634                         s2.SetLength(0)
8635                         schema.Write(s2)
8636                         If (s1.Length = s2.Length) Then
8637                             s1.Position = 0
8638                             s2.Position = 0
8639                             
8640                             Do While ((s1.Position <> s1.Length) _
8641                                         AndAlso (s1.ReadByte = s2.ReadByte))
8642                                 
8643                                 
8644                             Loop
8645                             If (s1.Position = s1.Length) Then
8646                                 Return type
8647                             End If
8648                         End If
8649                         
8650                     Loop
8651                 Finally
8652                     If (Not (s1) Is Nothing) Then
8653                         s1.Close
8654                     End If
8655                     If (Not (s2) Is Nothing) Then
8656                         s2.Close
8657                     End If
8658                 End Try
8659             End If
8660             xs.Add(dsSchema)
8661             Return type
8662         End Function
8663     End Class
8664     
8665     '''<summary>
8666     '''Represents the strongly named DataTable class.
8667     '''</summary>
8668     <Global.System.Serializable(), _
8669      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8670     Partial Public Class SupplierDataTable
8671         Inherits Global.System.Data.TypedTableBase(Of SupplierRow)
8672         
8673         Private columnID As Global.System.Data.DataColumn
8674         
8675         Private columnSupplierID As Global.System.Data.DataColumn
8676         
8677         Private columnName As Global.System.Data.DataColumn
8678         
8679         Private columnAddress As Global.System.Data.DataColumn
8680         
8681         Private columnCity As Global.System.Data.DataColumn
8682         
8683         Private columnState As Global.System.Data.DataColumn
8684         
8685         Private columnZipCode As Global.System.Data.DataColumn
8686         
8687         Private columnContactNo As Global.System.Data.DataColumn
8688         
8689         Private columnEmailID As Global.System.Data.DataColumn
8690         
8691         Private columnRemarks As Global.System.Data.DataColumn
8692         
8693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8695         Public Sub New()
8696             MyBase.New
8697             Me.TableName = "Supplier"
8698             Me.BeginInit
8699             Me.InitClass
8700             Me.EndInit
8701         End Sub
8702         
8703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8705         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8706             MyBase.New
8707             Me.TableName = table.TableName
8708             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8709                 Me.CaseSensitive = table.CaseSensitive
8710             End If
8711             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8712                 Me.Locale = table.Locale
8713             End If
8714             If (table.Namespace <> table.DataSet.Namespace) Then
8715                 Me.Namespace = table.Namespace
8716             End If
8717             Me.Prefix = table.Prefix
8718             Me.MinimumCapacity = table.MinimumCapacity
8719         End Sub
8720         
8721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8723         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8724             MyBase.New(info, context)
8725             Me.InitVars
8726         End Sub
8727         
8728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8730         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
8731             Get
8732                 Return Me.columnID
8733             End Get
8734         End Property
8735         
8736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8738         Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
8739             Get
8740                 Return Me.columnSupplierID
8741             End Get
8742         End Property
8743         
8744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8746         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
8747             Get
8748                 Return Me.columnName
8749             End Get
8750         End Property
8751         
8752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8754         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
8755             Get
8756                 Return Me.columnAddress
8757             End Get
8758         End Property
8759         
8760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8762         Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
8763             Get
8764                 Return Me.columnCity
8765             End Get
8766         End Property
8767         
8768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8770         Public ReadOnly Property StateColumn() As Global.System.Data.DataColumn
8771             Get
8772                 Return Me.columnState
8773             End Get
8774         End Property
8775         
8776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8778         Public ReadOnly Property ZipCodeColumn() As Global.System.Data.DataColumn
8779             Get
8780                 Return Me.columnZipCode
8781             End Get
8782         End Property
8783         
8784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8786         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
8787             Get
8788                 Return Me.columnContactNo
8789             End Get
8790         End Property
8791         
8792         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8793          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8794         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
8795             Get
8796                 Return Me.columnEmailID
8797             End Get
8798         End Property
8799         
8800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8802         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
8803             Get
8804                 Return Me.columnRemarks
8805             End Get
8806         End Property
8807         
8808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8810          Global.System.ComponentModel.Browsable(false)> _
8811         Public ReadOnly Property Count() As Integer
8812             Get
8813                 Return Me.Rows.Count
8814             End Get
8815         End Property
8816         
8817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8819         Public Default ReadOnly Property Item(ByVal index As Integer) As SupplierRow
8820             Get
8821                 Return CType(Me.Rows(index),SupplierRow)
8822             End Get
8823         End Property
8824         
8825         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8826         Public Event SupplierRowChanging As SupplierRowChangeEventHandler
8827         
8828         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8829         Public Event SupplierRowChanged As SupplierRowChangeEventHandler
8830         
8831         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8832         Public Event SupplierRowDeleting As SupplierRowChangeEventHandler
8833         
8834         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8835         Public Event SupplierRowDeleted As SupplierRowChangeEventHandler
8836         
8837         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8838          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8839         Public Overloads Sub AddSupplierRow(ByVal row As SupplierRow)
8840             Me.Rows.Add(row)
8841         End Sub
8842         
8843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8845         Public Overloads Function AddSupplierRow(ByVal ID As Integer, ByVal SupplierID As String, ByVal Name As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String) As SupplierRow
8846             Dim rowSupplierRow As SupplierRow = CType(Me.NewRow,SupplierRow)
8847             Dim columnValuesArray() As Object = New Object() {ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks}
8848             rowSupplierRow.ItemArray = columnValuesArray
8849             Me.Rows.Add(rowSupplierRow)
8850             Return rowSupplierRow
8851         End Function
8852         
8853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8855         Public Function FindByID(ByVal ID As Integer) As SupplierRow
8856             Return CType(Me.Rows.Find(New Object() {ID}),SupplierRow)
8857         End Function
8858         
8859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8861         Public Overrides Function Clone() As Global.System.Data.DataTable
8862             Dim cln As SupplierDataTable = CType(MyBase.Clone,SupplierDataTable)
8863             cln.InitVars
8864             Return cln
8865         End Function
8866         
8867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8869         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8870             Return New SupplierDataTable()
8871         End Function
8872         
8873         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8874          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8875         Friend Sub InitVars()
8876             Me.columnID = MyBase.Columns("ID")
8877             Me.columnSupplierID = MyBase.Columns("SupplierID")
8878             Me.columnName = MyBase.Columns("Name")
8879             Me.columnAddress = MyBase.Columns("Address")
8880             Me.columnCity = MyBase.Columns("City")
8881             Me.columnState = MyBase.Columns("State")
8882             Me.columnZipCode = MyBase.Columns("ZipCode")
8883             Me.columnContactNo = MyBase.Columns("ContactNo")
8884             Me.columnEmailID = MyBase.Columns("EmailID")
8885             Me.columnRemarks = MyBase.Columns("Remarks")
8886         End Sub
8887         
8888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8890         Private Sub InitClass()
8891             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8892             MyBase.Columns.Add(Me.columnID)
8893             Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8894             MyBase.Columns.Add(Me.columnSupplierID)
8895             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8896             MyBase.Columns.Add(Me.columnName)
8897             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8898             MyBase.Columns.Add(Me.columnAddress)
8899             Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8900             MyBase.Columns.Add(Me.columnCity)
8901             Me.columnState = New Global.System.Data.DataColumn("State", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8902             MyBase.Columns.Add(Me.columnState)
8903             Me.columnZipCode = New Global.System.Data.DataColumn("ZipCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8904             MyBase.Columns.Add(Me.columnZipCode)
8905             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8906             MyBase.Columns.Add(Me.columnContactNo)
8907             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8908             MyBase.Columns.Add(Me.columnEmailID)
8909             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8910             MyBase.Columns.Add(Me.columnRemarks)
8911             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
8912             Me.columnID.AllowDBNull = false
8913             Me.columnID.Unique = true
8914             Me.columnSupplierID.AllowDBNull = false
8915             Me.columnSupplierID.MaxLength = 30
8916             Me.columnName.AllowDBNull = false
8917             Me.columnName.MaxLength = 200
8918             Me.columnAddress.AllowDBNull = false
8919             Me.columnAddress.MaxLength = 250
8920             Me.columnCity.AllowDBNull = false
8921             Me.columnCity.MaxLength = 200
8922             Me.columnState.AllowDBNull = false
8923             Me.columnState.MaxLength = 150
8924             Me.columnZipCode.MaxLength = 15
8925             Me.columnContactNo.AllowDBNull = false
8926             Me.columnContactNo.MaxLength = 150
8927             Me.columnEmailID.MaxLength = 200
8928             Me.columnRemarks.MaxLength = 2147483647
8929         End Sub
8930         
8931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8933         Public Function NewSupplierRow() As SupplierRow
8934             Return CType(Me.NewRow,SupplierRow)
8935         End Function
8936         
8937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8939         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8940             Return New SupplierRow(builder)
8941         End Function
8942         
8943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8945         Protected Overrides Function GetRowType() As Global.System.Type
8946             Return GetType(SupplierRow)
8947         End Function
8948         
8949         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8950          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8951         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8952             MyBase.OnRowChanged(e)
8953             If (Not (Me.SupplierRowChangedEvent) Is Nothing) Then
8954                 RaiseEvent SupplierRowChanged(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
8955             End If
8956         End Sub
8957         
8958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8960         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8961             MyBase.OnRowChanging(e)
8962             If (Not (Me.SupplierRowChangingEvent) Is Nothing) Then
8963                 RaiseEvent SupplierRowChanging(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
8964             End If
8965         End Sub
8966         
8967         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8968          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8969         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8970             MyBase.OnRowDeleted(e)
8971             If (Not (Me.SupplierRowDeletedEvent) Is Nothing) Then
8972                 RaiseEvent SupplierRowDeleted(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
8973             End If
8974         End Sub
8975         
8976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8978         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8979             MyBase.OnRowDeleting(e)
8980             If (Not (Me.SupplierRowDeletingEvent) Is Nothing) Then
8981                 RaiseEvent SupplierRowDeleting(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
8982             End If
8983         End Sub
8984         
8985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8987         Public Sub RemoveSupplierRow(ByVal row As SupplierRow)
8988             Me.Rows.Remove(row)
8989         End Sub
8990         
8991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8993         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8994             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8995             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8996             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
8997             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8998             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8999             any1.MinOccurs = New Decimal(0)
9000             any1.MaxOccurs = Decimal.MaxValue
9001             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9002             sequence.Items.Add(any1)
9003             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9004             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9005             any2.MinOccurs = New Decimal(1)
9006             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9007             sequence.Items.Add(any2)
9008             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9009             attribute1.Name = "namespace"
9010             attribute1.FixedValue = ds.Namespace
9011             type.Attributes.Add(attribute1)
9012             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9013             attribute2.Name = "tableTypeName"
9014             attribute2.FixedValue = "SupplierDataTable"
9015             type.Attributes.Add(attribute2)
9016             type.Particle = sequence
9017             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9018             If xs.Contains(dsSchema.TargetNamespace) Then
9019                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9020                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9021                 Try
9022                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9023                     dsSchema.Write(s1)
9024                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9025                     Do While schemas.MoveNext
9026                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9027                         s2.SetLength(0)
9028                         schema.Write(s2)
9029                         If (s1.Length = s2.Length) Then
9030                             s1.Position = 0
9031                             s2.Position = 0
9032                             
9033                             Do While ((s1.Position <> s1.Length) _
9034                                         AndAlso (s1.ReadByte = s2.ReadByte))
9035                                 
9036                                 
9037                             Loop
9038                             If (s1.Position = s1.Length) Then
9039                                 Return type
9040                             End If
9041                         End If
9042                         
9043                     Loop
9044                 Finally
9045                     If (Not (s1) Is Nothing) Then
9046                         s1.Close
9047                     End If
9048                     If (Not (s2) Is Nothing) Then
9049                         s2.Close
9050                     End If
9051                 End Try
9052             End If
9053             xs.Add(dsSchema)
9054             Return type
9055         End Function
9056     End Class
9057     
9058     '''<summary>
9059     '''Represents the strongly named DataTable class.
9060     '''</summary>
9061     <Global.System.Serializable(), _
9062      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9063     Partial Public Class Temp_StockDataTable
9064         Inherits Global.System.Data.TypedTableBase(Of Temp_StockRow)
9065         
9066         Private columnProductID As Global.System.Data.DataColumn
9067         
9068         Private columnQty As Global.System.Data.DataColumn
9069         
9070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9072         Public Sub New()
9073             MyBase.New
9074             Me.TableName = "Temp_Stock"
9075             Me.BeginInit
9076             Me.InitClass
9077             Me.EndInit
9078         End Sub
9079         
9080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9082         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9083             MyBase.New
9084             Me.TableName = table.TableName
9085             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9086                 Me.CaseSensitive = table.CaseSensitive
9087             End If
9088             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9089                 Me.Locale = table.Locale
9090             End If
9091             If (table.Namespace <> table.DataSet.Namespace) Then
9092                 Me.Namespace = table.Namespace
9093             End If
9094             Me.Prefix = table.Prefix
9095             Me.MinimumCapacity = table.MinimumCapacity
9096         End Sub
9097         
9098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9100         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9101             MyBase.New(info, context)
9102             Me.InitVars
9103         End Sub
9104         
9105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9107         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
9108             Get
9109                 Return Me.columnProductID
9110             End Get
9111         End Property
9112         
9113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9115         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
9116             Get
9117                 Return Me.columnQty
9118             End Get
9119         End Property
9120         
9121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
9123          Global.System.ComponentModel.Browsable(false)> _
9124         Public ReadOnly Property Count() As Integer
9125             Get
9126                 Return Me.Rows.Count
9127             End Get
9128         End Property
9129         
9130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9132         Public Default ReadOnly Property Item(ByVal index As Integer) As Temp_StockRow
9133             Get
9134                 Return CType(Me.Rows(index),Temp_StockRow)
9135             End Get
9136         End Property
9137         
9138         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9139         Public Event Temp_StockRowChanging As Temp_StockRowChangeEventHandler
9140         
9141         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9142         Public Event Temp_StockRowChanged As Temp_StockRowChangeEventHandler
9143         
9144         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9145         Public Event Temp_StockRowDeleting As Temp_StockRowChangeEventHandler
9146         
9147         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9148         Public Event Temp_StockRowDeleted As Temp_StockRowChangeEventHandler
9149         
9150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9152         Public Overloads Sub AddTemp_StockRow(ByVal row As Temp_StockRow)
9153             Me.Rows.Add(row)
9154         End Sub
9155         
9156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9158         Public Overloads Function AddTemp_StockRow(ByVal parentProductRowByFK_Temp_Stock_Product As ProductRow, ByVal Qty As Integer) As Temp_StockRow
9159             Dim rowTemp_StockRow As Temp_StockRow = CType(Me.NewRow,Temp_StockRow)
9160             Dim columnValuesArray() As Object = New Object() {Nothing, Qty}
9161             If (Not (parentProductRowByFK_Temp_Stock_Product) Is Nothing) Then
9162                 columnValuesArray(0) = parentProductRowByFK_Temp_Stock_Product(0)
9163             End If
9164             rowTemp_StockRow.ItemArray = columnValuesArray
9165             Me.Rows.Add(rowTemp_StockRow)
9166             Return rowTemp_StockRow
9167         End Function
9168         
9169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9171         Public Function FindByProductID(ByVal ProductID As Integer) As Temp_StockRow
9172             Return CType(Me.Rows.Find(New Object() {ProductID}),Temp_StockRow)
9173         End Function
9174         
9175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9177         Public Overrides Function Clone() As Global.System.Data.DataTable
9178             Dim cln As Temp_StockDataTable = CType(MyBase.Clone,Temp_StockDataTable)
9179             cln.InitVars
9180             Return cln
9181         End Function
9182         
9183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9185         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
9186             Return New Temp_StockDataTable()
9187         End Function
9188         
9189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9191         Friend Sub InitVars()
9192             Me.columnProductID = MyBase.Columns("ProductID")
9193             Me.columnQty = MyBase.Columns("Qty")
9194         End Sub
9195         
9196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9198         Private Sub InitClass()
9199             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9200             MyBase.Columns.Add(Me.columnProductID)
9201             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9202             MyBase.Columns.Add(Me.columnQty)
9203             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnProductID}, true))
9204             Me.columnProductID.AllowDBNull = false
9205             Me.columnProductID.Unique = true
9206             Me.columnQty.AllowDBNull = false
9207         End Sub
9208         
9209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9211         Public Function NewTemp_StockRow() As Temp_StockRow
9212             Return CType(Me.NewRow,Temp_StockRow)
9213         End Function
9214         
9215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9217         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
9218             Return New Temp_StockRow(builder)
9219         End Function
9220         
9221         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9222          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9223         Protected Overrides Function GetRowType() As Global.System.Type
9224             Return GetType(Temp_StockRow)
9225         End Function
9226         
9227         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9228          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9229         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9230             MyBase.OnRowChanged(e)
9231             If (Not (Me.Temp_StockRowChangedEvent) Is Nothing) Then
9232                 RaiseEvent Temp_StockRowChanged(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9233             End If
9234         End Sub
9235         
9236         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9237          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9238         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9239             MyBase.OnRowChanging(e)
9240             If (Not (Me.Temp_StockRowChangingEvent) Is Nothing) Then
9241                 RaiseEvent Temp_StockRowChanging(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9242             End If
9243         End Sub
9244         
9245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9247         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9248             MyBase.OnRowDeleted(e)
9249             If (Not (Me.Temp_StockRowDeletedEvent) Is Nothing) Then
9250                 RaiseEvent Temp_StockRowDeleted(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9251             End If
9252         End Sub
9253         
9254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9256         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9257             MyBase.OnRowDeleting(e)
9258             If (Not (Me.Temp_StockRowDeletingEvent) Is Nothing) Then
9259                 RaiseEvent Temp_StockRowDeleting(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9260             End If
9261         End Sub
9262         
9263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9265         Public Sub RemoveTemp_StockRow(ByVal row As Temp_StockRow)
9266             Me.Rows.Remove(row)
9267         End Sub
9268         
9269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9271         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
9272             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
9273             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
9274             Dim ds As SIS_DBDataSet1 = New SIS_DBDataSet1()
9275             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9276             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
9277             any1.MinOccurs = New Decimal(0)
9278             any1.MaxOccurs = Decimal.MaxValue
9279             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9280             sequence.Items.Add(any1)
9281             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9282             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9283             any2.MinOccurs = New Decimal(1)
9284             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9285             sequence.Items.Add(any2)
9286             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9287             attribute1.Name = "namespace"
9288             attribute1.FixedValue = ds.Namespace
9289             type.Attributes.Add(attribute1)
9290             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9291             attribute2.Name = "tableTypeName"
9292             attribute2.FixedValue = "Temp_StockDataTable"
9293             type.Attributes.Add(attribute2)
9294             type.Particle = sequence
9295             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9296             If xs.Contains(dsSchema.TargetNamespace) Then
9297                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9298                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9299                 Try
9300                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9301                     dsSchema.Write(s1)
9302                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9303                     Do While schemas.MoveNext
9304                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9305                         s2.SetLength(0)
9306                         schema.Write(s2)
9307                         If (s1.Length = s2.Length) Then
9308                             s1.Position = 0
9309                             s2.Position = 0
9310                             
9311                             Do While ((s1.Position <> s1.Length) _
9312                                         AndAlso (s1.ReadByte = s2.ReadByte))
9313                                 
9314                                 
9315                             Loop
9316                             If (s1.Position = s1.Length) Then
9317                                 Return type
9318                             End If
9319                         End If
9320                         
9321                     Loop
9322                 Finally
9323                     If (Not (s1) Is Nothing) Then
9324                         s1.Close
9325                     End If
9326                     If (Not (s2) Is Nothing) Then
9327                         s2.Close
9328                     End If
9329                 End Try
9330             End If
9331             xs.Add(dsSchema)
9332             Return type
9333         End Function
9334     End Class
9335     
9336     '''<summary>
9337     '''Represents strongly named DataRow class.
9338     '''</summary>
9339     Partial Public Class ActivationRow
9340         Inherits Global.System.Data.DataRow
9341         
9342         Private tableActivation As ActivationDataTable
9343         
9344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9346         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9347             MyBase.New(rb)
9348             Me.tableActivation = CType(Me.Table,ActivationDataTable)
9349         End Sub
9350         
9351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9353         Public Property ID() As Integer
9354             Get
9355                 Return CType(Me(Me.tableActivation.IDColumn),Integer)
9356             End Get
9357             Set
9358                 Me(Me.tableActivation.IDColumn) = value
9359             End Set
9360         End Property
9361         
9362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9364         Public Property HardwareID() As String
9365             Get
9366                 Return CType(Me(Me.tableActivation.HardwareIDColumn),String)
9367             End Get
9368             Set
9369                 Me(Me.tableActivation.HardwareIDColumn) = value
9370             End Set
9371         End Property
9372         
9373         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9374          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9375         Public Property SerialNo() As String
9376             Get
9377                 Return CType(Me(Me.tableActivation.SerialNoColumn),String)
9378             End Get
9379             Set
9380                 Me(Me.tableActivation.SerialNoColumn) = value
9381             End Set
9382         End Property
9383         
9384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9386         Public Property ActivationID() As String
9387             Get
9388                 Return CType(Me(Me.tableActivation.ActivationIDColumn),String)
9389             End Get
9390             Set
9391                 Me(Me.tableActivation.ActivationIDColumn) = value
9392             End Set
9393         End Property
9394     End Class
9395     
9396     '''<summary>
9397     '''Represents strongly named DataRow class.
9398     '''</summary>
9399     Partial Public Class CategoryRow
9400         Inherits Global.System.Data.DataRow
9401         
9402         Private tableCategory As CategoryDataTable
9403         
9404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9406         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9407             MyBase.New(rb)
9408             Me.tableCategory = CType(Me.Table,CategoryDataTable)
9409         End Sub
9410         
9411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9413         Public Property CategoryName() As String
9414             Get
9415                 Return CType(Me(Me.tableCategory.CategoryNameColumn),String)
9416             End Get
9417             Set
9418                 Me(Me.tableCategory.CategoryNameColumn) = value
9419             End Set
9420         End Property
9421         
9422         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9423          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9424         Public Function GetSubCategoryRows() As SubCategoryRow()
9425             If (Me.Table.ChildRelations("FK_SubCategory_Category") Is Nothing) Then
9426                 Return New SubCategoryRow(-1) {}
9427             Else
9428                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_SubCategory_Category")),SubCategoryRow())
9429             End If
9430         End Function
9431     End Class
9432     
9433     '''<summary>
9434     '''Represents strongly named DataRow class.
9435     '''</summary>
9436     Partial Public Class CompanyRow
9437         Inherits Global.System.Data.DataRow
9438         
9439         Private tableCompany As CompanyDataTable
9440         
9441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9443         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9444             MyBase.New(rb)
9445             Me.tableCompany = CType(Me.Table,CompanyDataTable)
9446         End Sub
9447         
9448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9450         Public Property ID() As Integer
9451             Get
9452                 Return CType(Me(Me.tableCompany.IDColumn),Integer)
9453             End Get
9454             Set
9455                 Me(Me.tableCompany.IDColumn) = value
9456             End Set
9457         End Property
9458         
9459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9461         Public Property CompanyName() As String
9462             Get
9463                 Return CType(Me(Me.tableCompany.CompanyNameColumn),String)
9464             End Get
9465             Set
9466                 Me(Me.tableCompany.CompanyNameColumn) = value
9467             End Set
9468         End Property
9469         
9470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9472         Public Property Address() As String
9473             Get
9474                 Return CType(Me(Me.tableCompany.AddressColumn),String)
9475             End Get
9476             Set
9477                 Me(Me.tableCompany.AddressColumn) = value
9478             End Set
9479         End Property
9480         
9481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9483         Public Property ContactNo() As String
9484             Get
9485                 Return CType(Me(Me.tableCompany.ContactNoColumn),String)
9486             End Get
9487             Set
9488                 Me(Me.tableCompany.ContactNoColumn) = value
9489             End Set
9490         End Property
9491         
9492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9494         Public Property EmailID() As String
9495             Get
9496                 Return CType(Me(Me.tableCompany.EmailIDColumn),String)
9497             End Get
9498             Set
9499                 Me(Me.tableCompany.EmailIDColumn) = value
9500             End Set
9501         End Property
9502         
9503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9505         Public Property Logo() As Byte()
9506             Get
9507                 Return CType(Me(Me.tableCompany.LogoColumn),Byte())
9508             End Get
9509             Set
9510                 Me(Me.tableCompany.LogoColumn) = value
9511             End Set
9512         End Property
9513         
9514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9516         Public Property TIN() As String
9517             Get
9518                 Try
9519                     Return CType(Me(Me.tableCompany.TINColumn),String)
9520                 Catch e As Global.System.InvalidCastException
9521                     Throw New Global.System.Data.StrongTypingException("The value for column 'TIN' in table 'Company' is DBNull.", e)
9522                 End Try
9523             End Get
9524             Set
9525                 Me(Me.tableCompany.TINColumn) = value
9526             End Set
9527         End Property
9528         
9529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9531         Public Property STNo() As String
9532             Get
9533                 Try
9534                     Return CType(Me(Me.tableCompany.STNoColumn),String)
9535                 Catch e As Global.System.InvalidCastException
9536                     Throw New Global.System.Data.StrongTypingException("The value for column 'STNo' in table 'Company' is DBNull.", e)
9537                 End Try
9538             End Get
9539             Set
9540                 Me(Me.tableCompany.STNoColumn) = value
9541             End Set
9542         End Property
9543         
9544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9546         Public Property CIN() As String
9547             Get
9548                 Try
9549                     Return CType(Me(Me.tableCompany.CINColumn),String)
9550                 Catch e As Global.System.InvalidCastException
9551                     Throw New Global.System.Data.StrongTypingException("The value for column 'CIN' in table 'Company' is DBNull.", e)
9552                 End Try
9553             End Get
9554             Set
9555                 Me(Me.tableCompany.CINColumn) = value
9556             End Set
9557         End Property
9558         
9559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9561         Public Function IsTINNull() As Boolean
9562             Return Me.IsNull(Me.tableCompany.TINColumn)
9563         End Function
9564         
9565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9567         Public Sub SetTINNull()
9568             Me(Me.tableCompany.TINColumn) = Global.System.Convert.DBNull
9569         End Sub
9570         
9571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9573         Public Function IsSTNoNull() As Boolean
9574             Return Me.IsNull(Me.tableCompany.STNoColumn)
9575         End Function
9576         
9577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9579         Public Sub SetSTNoNull()
9580             Me(Me.tableCompany.STNoColumn) = Global.System.Convert.DBNull
9581         End Sub
9582         
9583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9585         Public Function IsCINNull() As Boolean
9586             Return Me.IsNull(Me.tableCompany.CINColumn)
9587         End Function
9588         
9589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9591         Public Sub SetCINNull()
9592             Me(Me.tableCompany.CINColumn) = Global.System.Convert.DBNull
9593         End Sub
9594     End Class
9595     
9596     '''<summary>
9597     '''Represents strongly named DataRow class.
9598     '''</summary>
9599     Partial Public Class Company_ContactsRow
9600         Inherits Global.System.Data.DataRow
9601         
9602         Private tableCompany_Contacts As Company_ContactsDataTable
9603         
9604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9606         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9607             MyBase.New(rb)
9608             Me.tableCompany_Contacts = CType(Me.Table,Company_ContactsDataTable)
9609         End Sub
9610         
9611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9613         Public Property Id() As Integer
9614             Get
9615                 Return CType(Me(Me.tableCompany_Contacts.IdColumn),Integer)
9616             End Get
9617             Set
9618                 Me(Me.tableCompany_Contacts.IdColumn) = value
9619             End Set
9620         End Property
9621         
9622         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9623          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9624         Public Property ContactPerson() As String
9625             Get
9626                 Return CType(Me(Me.tableCompany_Contacts.ContactPersonColumn),String)
9627             End Get
9628             Set
9629                 Me(Me.tableCompany_Contacts.ContactPersonColumn) = value
9630             End Set
9631         End Property
9632         
9633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9635         Public Property ContactNo() As String
9636             Get
9637                 Return CType(Me(Me.tableCompany_Contacts.ContactNoColumn),String)
9638             End Get
9639             Set
9640                 Me(Me.tableCompany_Contacts.ContactNoColumn) = value
9641             End Set
9642         End Property
9643     End Class
9644     
9645     '''<summary>
9646     '''Represents strongly named DataRow class.
9647     '''</summary>
9648     Partial Public Class CustomerRow
9649         Inherits Global.System.Data.DataRow
9650         
9651         Private tableCustomer As CustomerDataTable
9652         
9653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9655         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9656             MyBase.New(rb)
9657             Me.tableCustomer = CType(Me.Table,CustomerDataTable)
9658         End Sub
9659         
9660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9662         Public Property ID() As Integer
9663             Get
9664                 Return CType(Me(Me.tableCustomer.IDColumn),Integer)
9665             End Get
9666             Set
9667                 Me(Me.tableCustomer.IDColumn) = value
9668             End Set
9669         End Property
9670         
9671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9673         Public Property CustomerID() As String
9674             Get
9675                 Return CType(Me(Me.tableCustomer.CustomerIDColumn),String)
9676             End Get
9677             Set
9678                 Me(Me.tableCustomer.CustomerIDColumn) = value
9679             End Set
9680         End Property
9681         
9682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9684         Public Property Name() As String
9685             Get
9686                 Return CType(Me(Me.tableCustomer.NameColumn),String)
9687             End Get
9688             Set
9689                 Me(Me.tableCustomer.NameColumn) = value
9690             End Set
9691         End Property
9692         
9693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9695         Public Property Gender() As String
9696             Get
9697                 Return CType(Me(Me.tableCustomer.GenderColumn),String)
9698             End Get
9699             Set
9700                 Me(Me.tableCustomer.GenderColumn) = value
9701             End Set
9702         End Property
9703         
9704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9706         Public Property Address() As String
9707             Get
9708                 Return CType(Me(Me.tableCustomer.AddressColumn),String)
9709             End Get
9710             Set
9711                 Me(Me.tableCustomer.AddressColumn) = value
9712             End Set
9713         End Property
9714         
9715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9717         Public Property City() As String
9718             Get
9719                 Return CType(Me(Me.tableCustomer.CityColumn),String)
9720             End Get
9721             Set
9722                 Me(Me.tableCustomer.CityColumn) = value
9723             End Set
9724         End Property
9725         
9726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9728         Public Property State() As String
9729             Get
9730                 Return CType(Me(Me.tableCustomer.StateColumn),String)
9731             End Get
9732             Set
9733                 Me(Me.tableCustomer.StateColumn) = value
9734             End Set
9735         End Property
9736         
9737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9739         Public Property ZipCode() As String
9740             Get
9741                 Try
9742                     Return CType(Me(Me.tableCustomer.ZipCodeColumn),String)
9743                 Catch e As Global.System.InvalidCastException
9744                     Throw New Global.System.Data.StrongTypingException("The value for column 'ZipCode' in table 'Customer' is DBNull.", e)
9745                 End Try
9746             End Get
9747             Set
9748                 Me(Me.tableCustomer.ZipCodeColumn) = value
9749             End Set
9750         End Property
9751         
9752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9754         Public Property ContactNo() As String
9755             Get
9756                 Return CType(Me(Me.tableCustomer.ContactNoColumn),String)
9757             End Get
9758             Set
9759                 Me(Me.tableCustomer.ContactNoColumn) = value
9760             End Set
9761         End Property
9762         
9763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9765         Public Property EmailID() As String
9766             Get
9767                 Try
9768                     Return CType(Me(Me.tableCustomer.EmailIDColumn),String)
9769                 Catch e As Global.System.InvalidCastException
9770                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Customer' is DBNull.", e)
9771                 End Try
9772             End Get
9773             Set
9774                 Me(Me.tableCustomer.EmailIDColumn) = value
9775             End Set
9776         End Property
9777         
9778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9780         Public Property Remarks() As String
9781             Get
9782                 Try
9783                     Return CType(Me(Me.tableCustomer.RemarksColumn),String)
9784                 Catch e As Global.System.InvalidCastException
9785                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Customer' is DBNull.", e)
9786                 End Try
9787             End Get
9788             Set
9789                 Me(Me.tableCustomer.RemarksColumn) = value
9790             End Set
9791         End Property
9792         
9793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9795         Public Property Photo() As Byte()
9796             Get
9797                 Return CType(Me(Me.tableCustomer.PhotoColumn),Byte())
9798             End Get
9799             Set
9800                 Me(Me.tableCustomer.PhotoColumn) = value
9801             End Set
9802         End Property
9803         
9804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9806         Public Function IsZipCodeNull() As Boolean
9807             Return Me.IsNull(Me.tableCustomer.ZipCodeColumn)
9808         End Function
9809         
9810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9812         Public Sub SetZipCodeNull()
9813             Me(Me.tableCustomer.ZipCodeColumn) = Global.System.Convert.DBNull
9814         End Sub
9815         
9816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9818         Public Function IsEmailIDNull() As Boolean
9819             Return Me.IsNull(Me.tableCustomer.EmailIDColumn)
9820         End Function
9821         
9822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9824         Public Sub SetEmailIDNull()
9825             Me(Me.tableCustomer.EmailIDColumn) = Global.System.Convert.DBNull
9826         End Sub
9827         
9828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9830         Public Function IsRemarksNull() As Boolean
9831             Return Me.IsNull(Me.tableCustomer.RemarksColumn)
9832         End Function
9833         
9834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9836         Public Sub SetRemarksNull()
9837             Me(Me.tableCustomer.RemarksColumn) = Global.System.Convert.DBNull
9838         End Sub
9839         
9840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9842         Public Function GetInvoiceInfoRows() As InvoiceInfoRow()
9843             If (Me.Table.ChildRelations("FK_InvoiceInfo_Customer") Is Nothing) Then
9844                 Return New InvoiceInfoRow(-1) {}
9845             Else
9846                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_InvoiceInfo_Customer")),InvoiceInfoRow())
9847             End If
9848         End Function
9849         
9850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9852         Public Function GetQuotationRows() As QuotationRow()
9853             If (Me.Table.ChildRelations("FK_Quotation_Customer") Is Nothing) Then
9854                 Return New QuotationRow(-1) {}
9855             Else
9856                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Customer")),QuotationRow())
9857             End If
9858         End Function
9859         
9860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9862         Public Function GetServiceRows() As ServiceRow()
9863             If (Me.Table.ChildRelations("FK_Service_Customer") Is Nothing) Then
9864                 Return New ServiceRow(-1) {}
9865             Else
9866                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Service_Customer")),ServiceRow())
9867             End If
9868         End Function
9869     End Class
9870     
9871     '''<summary>
9872     '''Represents strongly named DataRow class.
9873     '''</summary>
9874     Partial Public Class Invoice_PaymentRow
9875         Inherits Global.System.Data.DataRow
9876         
9877         Private tableInvoice_Payment As Invoice_PaymentDataTable
9878         
9879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9881         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9882             MyBase.New(rb)
9883             Me.tableInvoice_Payment = CType(Me.Table,Invoice_PaymentDataTable)
9884         End Sub
9885         
9886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9888         Public Property IP_ID() As Integer
9889             Get
9890                 Return CType(Me(Me.tableInvoice_Payment.IP_IDColumn),Integer)
9891             End Get
9892             Set
9893                 Me(Me.tableInvoice_Payment.IP_IDColumn) = value
9894             End Set
9895         End Property
9896         
9897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9899         Public Property InvoiceID() As Integer
9900             Get
9901                 Return CType(Me(Me.tableInvoice_Payment.InvoiceIDColumn),Integer)
9902             End Get
9903             Set
9904                 Me(Me.tableInvoice_Payment.InvoiceIDColumn) = value
9905             End Set
9906         End Property
9907         
9908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9910         Public Property PaymentDate() As Date
9911             Get
9912                 Return CType(Me(Me.tableInvoice_Payment.PaymentDateColumn),Date)
9913             End Get
9914             Set
9915                 Me(Me.tableInvoice_Payment.PaymentDateColumn) = value
9916             End Set
9917         End Property
9918         
9919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9921         Public Property TotalPaid() As Decimal
9922             Get
9923                 Return CType(Me(Me.tableInvoice_Payment.TotalPaidColumn),Decimal)
9924             End Get
9925             Set
9926                 Me(Me.tableInvoice_Payment.TotalPaidColumn) = value
9927             End Set
9928         End Property
9929         
9930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9932         Public Property PaymentMode() As String
9933             Get
9934                 Return CType(Me(Me.tableInvoice_Payment.PaymentModeColumn),String)
9935             End Get
9936             Set
9937                 Me(Me.tableInvoice_Payment.PaymentModeColumn) = value
9938             End Set
9939         End Property
9940         
9941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9943         Public Property InvoiceInfoRow() As InvoiceInfoRow
9944             Get
9945                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Payment_InvoiceInfo")),InvoiceInfoRow)
9946             End Get
9947             Set
9948                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Payment_InvoiceInfo"))
9949             End Set
9950         End Property
9951     End Class
9952     
9953     '''<summary>
9954     '''Represents strongly named DataRow class.
9955     '''</summary>
9956     Partial Public Class Invoice_ProductRow
9957         Inherits Global.System.Data.DataRow
9958         
9959         Private tableInvoice_Product As Invoice_ProductDataTable
9960         
9961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9963         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9964             MyBase.New(rb)
9965             Me.tableInvoice_Product = CType(Me.Table,Invoice_ProductDataTable)
9966         End Sub
9967         
9968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9970         Public Property IPo_ID() As Integer
9971             Get
9972                 Return CType(Me(Me.tableInvoice_Product.IPo_IDColumn),Integer)
9973             End Get
9974             Set
9975                 Me(Me.tableInvoice_Product.IPo_IDColumn) = value
9976             End Set
9977         End Property
9978         
9979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9981         Public Property InvoiceID() As Integer
9982             Get
9983                 Return CType(Me(Me.tableInvoice_Product.InvoiceIDColumn),Integer)
9984             End Get
9985             Set
9986                 Me(Me.tableInvoice_Product.InvoiceIDColumn) = value
9987             End Set
9988         End Property
9989         
9990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9992         Public Property ProductID() As Integer
9993             Get
9994                 Return CType(Me(Me.tableInvoice_Product.ProductIDColumn),Integer)
9995             End Get
9996             Set
9997                 Me(Me.tableInvoice_Product.ProductIDColumn) = value
9998             End Set
9999         End Property
10000         
10001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10003         Public Property CostPrice() As Decimal
10004             Get
10005                 Return CType(Me(Me.tableInvoice_Product.CostPriceColumn),Decimal)
10006             End Get
10007             Set
10008                 Me(Me.tableInvoice_Product.CostPriceColumn) = value
10009             End Set
10010         End Property
10011         
10012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10014         Public Property SellingPrice() As Decimal
10015             Get
10016                 Return CType(Me(Me.tableInvoice_Product.SellingPriceColumn),Decimal)
10017             End Get
10018             Set
10019                 Me(Me.tableInvoice_Product.SellingPriceColumn) = value
10020             End Set
10021         End Property
10022         
10023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10025         Public Property Margin() As Decimal
10026             Get
10027                 Return CType(Me(Me.tableInvoice_Product.MarginColumn),Decimal)
10028             End Get
10029             Set
10030                 Me(Me.tableInvoice_Product.MarginColumn) = value
10031             End Set
10032         End Property
10033         
10034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10036         Public Property Qty() As Integer
10037             Get
10038                 Return CType(Me(Me.tableInvoice_Product.QtyColumn),Integer)
10039             End Get
10040             Set
10041                 Me(Me.tableInvoice_Product.QtyColumn) = value
10042             End Set
10043         End Property
10044         
10045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10047         Public Property Amount() As Decimal
10048             Get
10049                 Return CType(Me(Me.tableInvoice_Product.AmountColumn),Decimal)
10050             End Get
10051             Set
10052                 Me(Me.tableInvoice_Product.AmountColumn) = value
10053             End Set
10054         End Property
10055         
10056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10058         Public Property DiscountPer() As Decimal
10059             Get
10060                 Return CType(Me(Me.tableInvoice_Product.DiscountPerColumn),Decimal)
10061             End Get
10062             Set
10063                 Me(Me.tableInvoice_Product.DiscountPerColumn) = value
10064             End Set
10065         End Property
10066         
10067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10069         Public Property Discount() As Decimal
10070             Get
10071                 Return CType(Me(Me.tableInvoice_Product.DiscountColumn),Decimal)
10072             End Get
10073             Set
10074                 Me(Me.tableInvoice_Product.DiscountColumn) = value
10075             End Set
10076         End Property
10077         
10078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10080         Public Property VATPer() As Decimal
10081             Get
10082                 Return CType(Me(Me.tableInvoice_Product.VATPerColumn),Decimal)
10083             End Get
10084             Set
10085                 Me(Me.tableInvoice_Product.VATPerColumn) = value
10086             End Set
10087         End Property
10088         
10089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10091         Public Property VAT() As Decimal
10092             Get
10093                 Return CType(Me(Me.tableInvoice_Product.VATColumn),Decimal)
10094             End Get
10095             Set
10096                 Me(Me.tableInvoice_Product.VATColumn) = value
10097             End Set
10098         End Property
10099         
10100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10102         Public Property TotalAmount() As Decimal
10103             Get
10104                 Return CType(Me(Me.tableInvoice_Product.TotalAmountColumn),Decimal)
10105             End Get
10106             Set
10107                 Me(Me.tableInvoice_Product.TotalAmountColumn) = value
10108             End Set
10109         End Property
10110         
10111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10113         Public Property InvoiceInfoRow() As InvoiceInfoRow
10114             Get
10115                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Product_InvoiceInfo")),InvoiceInfoRow)
10116             End Get
10117             Set
10118                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Product_InvoiceInfo"))
10119             End Set
10120         End Property
10121         
10122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10124         Public Property ProductRow() As ProductRow
10125             Get
10126                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Product_Product")),ProductRow)
10127             End Get
10128             Set
10129                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Product_Product"))
10130             End Set
10131         End Property
10132     End Class
10133     
10134     '''<summary>
10135     '''Represents strongly named DataRow class.
10136     '''</summary>
10137     Partial Public Class Invoice1_PaymentRow
10138         Inherits Global.System.Data.DataRow
10139         
10140         Private tableInvoice1_Payment As Invoice1_PaymentDataTable
10141         
10142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10144         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10145             MyBase.New(rb)
10146             Me.tableInvoice1_Payment = CType(Me.Table,Invoice1_PaymentDataTable)
10147         End Sub
10148         
10149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10151         Public Property IP_ID() As Integer
10152             Get
10153                 Return CType(Me(Me.tableInvoice1_Payment.IP_IDColumn),Integer)
10154             End Get
10155             Set
10156                 Me(Me.tableInvoice1_Payment.IP_IDColumn) = value
10157             End Set
10158         End Property
10159         
10160         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10161          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10162         Public Property InvoiceID() As Integer
10163             Get
10164                 Return CType(Me(Me.tableInvoice1_Payment.InvoiceIDColumn),Integer)
10165             End Get
10166             Set
10167                 Me(Me.tableInvoice1_Payment.InvoiceIDColumn) = value
10168             End Set
10169         End Property
10170         
10171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10173         Public Property PaymentDate() As Date
10174             Get
10175                 Return CType(Me(Me.tableInvoice1_Payment.PaymentDateColumn),Date)
10176             End Get
10177             Set
10178                 Me(Me.tableInvoice1_Payment.PaymentDateColumn) = value
10179             End Set
10180         End Property
10181         
10182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10184         Public Property TotalPaid() As Decimal
10185             Get
10186                 Return CType(Me(Me.tableInvoice1_Payment.TotalPaidColumn),Decimal)
10187             End Get
10188             Set
10189                 Me(Me.tableInvoice1_Payment.TotalPaidColumn) = value
10190             End Set
10191         End Property
10192         
10193         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10194          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10195         Public Property PaymentMode() As String
10196             Get
10197                 Return CType(Me(Me.tableInvoice1_Payment.PaymentModeColumn),String)
10198             End Get
10199             Set
10200                 Me(Me.tableInvoice1_Payment.PaymentModeColumn) = value
10201             End Set
10202         End Property
10203         
10204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10206         Public Property InvoiceInfo1Row() As InvoiceInfo1Row
10207             Get
10208                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice1_Payment_InvoiceInfo1")),InvoiceInfo1Row)
10209             End Get
10210             Set
10211                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice1_Payment_InvoiceInfo1"))
10212             End Set
10213         End Property
10214     End Class
10215     
10216     '''<summary>
10217     '''Represents strongly named DataRow class.
10218     '''</summary>
10219     Partial Public Class Invoice1_ProductRow
10220         Inherits Global.System.Data.DataRow
10221         
10222         Private tableInvoice1_Product As Invoice1_ProductDataTable
10223         
10224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10226         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10227             MyBase.New(rb)
10228             Me.tableInvoice1_Product = CType(Me.Table,Invoice1_ProductDataTable)
10229         End Sub
10230         
10231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10233         Public Property Ipo_ID() As Integer
10234             Get
10235                 Return CType(Me(Me.tableInvoice1_Product.Ipo_IDColumn),Integer)
10236             End Get
10237             Set
10238                 Me(Me.tableInvoice1_Product.Ipo_IDColumn) = value
10239             End Set
10240         End Property
10241         
10242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10244         Public Property InvoiceID() As Integer
10245             Get
10246                 Return CType(Me(Me.tableInvoice1_Product.InvoiceIDColumn),Integer)
10247             End Get
10248             Set
10249                 Me(Me.tableInvoice1_Product.InvoiceIDColumn) = value
10250             End Set
10251         End Property
10252         
10253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10255         Public Property ProductID() As Integer
10256             Get
10257                 Return CType(Me(Me.tableInvoice1_Product.ProductIDColumn),Integer)
10258             End Get
10259             Set
10260                 Me(Me.tableInvoice1_Product.ProductIDColumn) = value
10261             End Set
10262         End Property
10263         
10264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10266         Public Property CostPrice() As Decimal
10267             Get
10268                 Return CType(Me(Me.tableInvoice1_Product.CostPriceColumn),Decimal)
10269             End Get
10270             Set
10271                 Me(Me.tableInvoice1_Product.CostPriceColumn) = value
10272             End Set
10273         End Property
10274         
10275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10277         Public Property SellingPrice() As Decimal
10278             Get
10279                 Return CType(Me(Me.tableInvoice1_Product.SellingPriceColumn),Decimal)
10280             End Get
10281             Set
10282                 Me(Me.tableInvoice1_Product.SellingPriceColumn) = value
10283             End Set
10284         End Property
10285         
10286         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10287          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10288         Public Property Margin() As Decimal
10289             Get
10290                 Return CType(Me(Me.tableInvoice1_Product.MarginColumn),Decimal)
10291             End Get
10292             Set
10293                 Me(Me.tableInvoice1_Product.MarginColumn) = value
10294             End Set
10295         End Property
10296         
10297         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10298          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10299         Public Property Qty() As Integer
10300             Get
10301                 Return CType(Me(Me.tableInvoice1_Product.QtyColumn),Integer)
10302             End Get
10303             Set
10304                 Me(Me.tableInvoice1_Product.QtyColumn) = value
10305             End Set
10306         End Property
10307         
10308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10310         Public Property Amount() As Decimal
10311             Get
10312                 Return CType(Me(Me.tableInvoice1_Product.AmountColumn),Decimal)
10313             End Get
10314             Set
10315                 Me(Me.tableInvoice1_Product.AmountColumn) = value
10316             End Set
10317         End Property
10318         
10319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10321         Public Property DiscountPer() As Decimal
10322             Get
10323                 Return CType(Me(Me.tableInvoice1_Product.DiscountPerColumn),Decimal)
10324             End Get
10325             Set
10326                 Me(Me.tableInvoice1_Product.DiscountPerColumn) = value
10327             End Set
10328         End Property
10329         
10330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10332         Public Property Discount() As Decimal
10333             Get
10334                 Return CType(Me(Me.tableInvoice1_Product.DiscountColumn),Decimal)
10335             End Get
10336             Set
10337                 Me(Me.tableInvoice1_Product.DiscountColumn) = value
10338             End Set
10339         End Property
10340         
10341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10343         Public Property VATPer() As Decimal
10344             Get
10345                 Return CType(Me(Me.tableInvoice1_Product.VATPerColumn),Decimal)
10346             End Get
10347             Set
10348                 Me(Me.tableInvoice1_Product.VATPerColumn) = value
10349             End Set
10350         End Property
10351         
10352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10354         Public Property VAT() As Decimal
10355             Get
10356                 Return CType(Me(Me.tableInvoice1_Product.VATColumn),Decimal)
10357             End Get
10358             Set
10359                 Me(Me.tableInvoice1_Product.VATColumn) = value
10360             End Set
10361         End Property
10362         
10363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10365         Public Property TotalAmount() As Decimal
10366             Get
10367                 Return CType(Me(Me.tableInvoice1_Product.TotalAmountColumn),Decimal)
10368             End Get
10369             Set
10370                 Me(Me.tableInvoice1_Product.TotalAmountColumn) = value
10371             End Set
10372         End Property
10373         
10374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10376         Public Property InvoiceInfo1Row() As InvoiceInfo1Row
10377             Get
10378                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice1_Product_InvoiceInfo1")),InvoiceInfo1Row)
10379             End Get
10380             Set
10381                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice1_Product_InvoiceInfo1"))
10382             End Set
10383         End Property
10384         
10385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10387         Public Property ProductRow() As ProductRow
10388             Get
10389                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice1_Product_Product")),ProductRow)
10390             End Get
10391             Set
10392                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice1_Product_Product"))
10393             End Set
10394         End Property
10395     End Class
10396     
10397     '''<summary>
10398     '''Represents strongly named DataRow class.
10399     '''</summary>
10400     Partial Public Class InvoiceInfoRow
10401         Inherits Global.System.Data.DataRow
10402         
10403         Private tableInvoiceInfo As InvoiceInfoDataTable
10404         
10405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10407         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10408             MyBase.New(rb)
10409             Me.tableInvoiceInfo = CType(Me.Table,InvoiceInfoDataTable)
10410         End Sub
10411         
10412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10414         Public Property Inv_ID() As Integer
10415             Get
10416                 Return CType(Me(Me.tableInvoiceInfo.Inv_IDColumn),Integer)
10417             End Get
10418             Set
10419                 Me(Me.tableInvoiceInfo.Inv_IDColumn) = value
10420             End Set
10421         End Property
10422         
10423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10425         Public Property InvoiceNo() As String
10426             Get
10427                 Return CType(Me(Me.tableInvoiceInfo.InvoiceNoColumn),String)
10428             End Get
10429             Set
10430                 Me(Me.tableInvoiceInfo.InvoiceNoColumn) = value
10431             End Set
10432         End Property
10433         
10434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10436         Public Property InvoiceDate() As Date
10437             Get
10438                 Return CType(Me(Me.tableInvoiceInfo.InvoiceDateColumn),Date)
10439             End Get
10440             Set
10441                 Me(Me.tableInvoiceInfo.InvoiceDateColumn) = value
10442             End Set
10443         End Property
10444         
10445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10447         Public Property CustomerID() As Integer
10448             Get
10449                 Return CType(Me(Me.tableInvoiceInfo.CustomerIDColumn),Integer)
10450             End Get
10451             Set
10452                 Me(Me.tableInvoiceInfo.CustomerIDColumn) = value
10453             End Set
10454         End Property
10455         
10456         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10457          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10458         Public Property GrandTotal() As Decimal
10459             Get
10460                 Return CType(Me(Me.tableInvoiceInfo.GrandTotalColumn),Decimal)
10461             End Get
10462             Set
10463                 Me(Me.tableInvoiceInfo.GrandTotalColumn) = value
10464             End Set
10465         End Property
10466         
10467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10469         Public Property TotalPaid() As Decimal
10470             Get
10471                 Return CType(Me(Me.tableInvoiceInfo.TotalPaidColumn),Decimal)
10472             End Get
10473             Set
10474                 Me(Me.tableInvoiceInfo.TotalPaidColumn) = value
10475             End Set
10476         End Property
10477         
10478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10480         Public Property Balance() As Decimal
10481             Get
10482                 Return CType(Me(Me.tableInvoiceInfo.BalanceColumn),Decimal)
10483             End Get
10484             Set
10485                 Me(Me.tableInvoiceInfo.BalanceColumn) = value
10486             End Set
10487         End Property
10488         
10489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10491         Public Property Remarks() As String
10492             Get
10493                 Try
10494                     Return CType(Me(Me.tableInvoiceInfo.RemarksColumn),String)
10495                 Catch e As Global.System.InvalidCastException
10496                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'InvoiceInfo' is DBNull.", e)
10497                 End Try
10498             End Get
10499             Set
10500                 Me(Me.tableInvoiceInfo.RemarksColumn) = value
10501             End Set
10502         End Property
10503         
10504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10506         Public Property CustomerRow() As CustomerRow
10507             Get
10508                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_InvoiceInfo_Customer")),CustomerRow)
10509             End Get
10510             Set
10511                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_InvoiceInfo_Customer"))
10512             End Set
10513         End Property
10514         
10515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10517         Public Function IsRemarksNull() As Boolean
10518             Return Me.IsNull(Me.tableInvoiceInfo.RemarksColumn)
10519         End Function
10520         
10521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10523         Public Sub SetRemarksNull()
10524             Me(Me.tableInvoiceInfo.RemarksColumn) = Global.System.Convert.DBNull
10525         End Sub
10526         
10527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10529         Public Function GetInvoice_PaymentRows() As Invoice_PaymentRow()
10530             If (Me.Table.ChildRelations("FK_Invoice_Payment_InvoiceInfo") Is Nothing) Then
10531                 Return New Invoice_PaymentRow(-1) {}
10532             Else
10533                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Payment_InvoiceInfo")),Invoice_PaymentRow())
10534             End If
10535         End Function
10536         
10537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10539         Public Function GetInvoice_ProductRows() As Invoice_ProductRow()
10540             If (Me.Table.ChildRelations("FK_Invoice_Product_InvoiceInfo") Is Nothing) Then
10541                 Return New Invoice_ProductRow(-1) {}
10542             Else
10543                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Product_InvoiceInfo")),Invoice_ProductRow())
10544             End If
10545         End Function
10546     End Class
10547     
10548     '''<summary>
10549     '''Represents strongly named DataRow class.
10550     '''</summary>
10551     Partial Public Class InvoiceInfo1Row
10552         Inherits Global.System.Data.DataRow
10553         
10554         Private tableInvoiceInfo1 As InvoiceInfo1DataTable
10555         
10556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10558         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10559             MyBase.New(rb)
10560             Me.tableInvoiceInfo1 = CType(Me.Table,InvoiceInfo1DataTable)
10561         End Sub
10562         
10563         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10564          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10565         Public Property Inv_ID() As Integer
10566             Get
10567                 Return CType(Me(Me.tableInvoiceInfo1.Inv_IDColumn),Integer)
10568             End Get
10569             Set
10570                 Me(Me.tableInvoiceInfo1.Inv_IDColumn) = value
10571             End Set
10572         End Property
10573         
10574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10576         Public Property InvoiceNo() As String
10577             Get
10578                 Return CType(Me(Me.tableInvoiceInfo1.InvoiceNoColumn),String)
10579             End Get
10580             Set
10581                 Me(Me.tableInvoiceInfo1.InvoiceNoColumn) = value
10582             End Set
10583         End Property
10584         
10585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10587         Public Property InvoiceDate() As Date
10588             Get
10589                 Return CType(Me(Me.tableInvoiceInfo1.InvoiceDateColumn),Date)
10590             End Get
10591             Set
10592                 Me(Me.tableInvoiceInfo1.InvoiceDateColumn) = value
10593             End Set
10594         End Property
10595         
10596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10598         Public Property ServiceID() As Integer
10599             Get
10600                 Return CType(Me(Me.tableInvoiceInfo1.ServiceIDColumn),Integer)
10601             End Get
10602             Set
10603                 Me(Me.tableInvoiceInfo1.ServiceIDColumn) = value
10604             End Set
10605         End Property
10606         
10607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10609         Public Property RepairCharges() As Decimal
10610             Get
10611                 Return CType(Me(Me.tableInvoiceInfo1.RepairChargesColumn),Decimal)
10612             End Get
10613             Set
10614                 Me(Me.tableInvoiceInfo1.RepairChargesColumn) = value
10615             End Set
10616         End Property
10617         
10618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10620         Public Property Upfront() As Decimal
10621             Get
10622                 Return CType(Me(Me.tableInvoiceInfo1.UpfrontColumn),Decimal)
10623             End Get
10624             Set
10625                 Me(Me.tableInvoiceInfo1.UpfrontColumn) = value
10626             End Set
10627         End Property
10628         
10629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10631         Public Property ProductCharges() As Decimal
10632             Get
10633                 Return CType(Me(Me.tableInvoiceInfo1.ProductChargesColumn),Decimal)
10634             End Get
10635             Set
10636                 Me(Me.tableInvoiceInfo1.ProductChargesColumn) = value
10637             End Set
10638         End Property
10639         
10640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10642         Public Property ServiceTaxPer() As Decimal
10643             Get
10644                 Return CType(Me(Me.tableInvoiceInfo1.ServiceTaxPerColumn),Decimal)
10645             End Get
10646             Set
10647                 Me(Me.tableInvoiceInfo1.ServiceTaxPerColumn) = value
10648             End Set
10649         End Property
10650         
10651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10653         Public Property ServiceTax() As Decimal
10654             Get
10655                 Return CType(Me(Me.tableInvoiceInfo1.ServiceTaxColumn),Decimal)
10656             End Get
10657             Set
10658                 Me(Me.tableInvoiceInfo1.ServiceTaxColumn) = value
10659             End Set
10660         End Property
10661         
10662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10664         Public Property GrandTotal() As Decimal
10665             Get
10666                 Return CType(Me(Me.tableInvoiceInfo1.GrandTotalColumn),Decimal)
10667             End Get
10668             Set
10669                 Me(Me.tableInvoiceInfo1.GrandTotalColumn) = value
10670             End Set
10671         End Property
10672         
10673         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10674          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10675         Public Property TotalPaid() As Decimal
10676             Get
10677                 Return CType(Me(Me.tableInvoiceInfo1.TotalPaidColumn),Decimal)
10678             End Get
10679             Set
10680                 Me(Me.tableInvoiceInfo1.TotalPaidColumn) = value
10681             End Set
10682         End Property
10683         
10684         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10685          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10686         Public Property Balance() As Decimal
10687             Get
10688                 Return CType(Me(Me.tableInvoiceInfo1.BalanceColumn),Decimal)
10689             End Get
10690             Set
10691                 Me(Me.tableInvoiceInfo1.BalanceColumn) = value
10692             End Set
10693         End Property
10694         
10695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10697         Public Property Remarks() As String
10698             Get
10699                 Try
10700                     Return CType(Me(Me.tableInvoiceInfo1.RemarksColumn),String)
10701                 Catch e As Global.System.InvalidCastException
10702                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'InvoiceInfo1' is DBNull.", e)
10703                 End Try
10704             End Get
10705             Set
10706                 Me(Me.tableInvoiceInfo1.RemarksColumn) = value
10707             End Set
10708         End Property
10709         
10710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10712         Public Property ServiceRow() As ServiceRow
10713             Get
10714                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_InvoiceInfo1_Service")),ServiceRow)
10715             End Get
10716             Set
10717                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_InvoiceInfo1_Service"))
10718             End Set
10719         End Property
10720         
10721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10723         Public Function IsRemarksNull() As Boolean
10724             Return Me.IsNull(Me.tableInvoiceInfo1.RemarksColumn)
10725         End Function
10726         
10727         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10728          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10729         Public Sub SetRemarksNull()
10730             Me(Me.tableInvoiceInfo1.RemarksColumn) = Global.System.Convert.DBNull
10731         End Sub
10732         
10733         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10734          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10735         Public Function GetInvoice1_PaymentRows() As Invoice1_PaymentRow()
10736             If (Me.Table.ChildRelations("FK_Invoice1_Payment_InvoiceInfo1") Is Nothing) Then
10737                 Return New Invoice1_PaymentRow(-1) {}
10738             Else
10739                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice1_Payment_InvoiceInfo1")),Invoice1_PaymentRow())
10740             End If
10741         End Function
10742         
10743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10745         Public Function GetInvoice1_ProductRows() As Invoice1_ProductRow()
10746             If (Me.Table.ChildRelations("FK_Invoice1_Product_InvoiceInfo1") Is Nothing) Then
10747                 Return New Invoice1_ProductRow(-1) {}
10748             Else
10749                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice1_Product_InvoiceInfo1")),Invoice1_ProductRow())
10750             End If
10751         End Function
10752     End Class
10753     
10754     '''<summary>
10755     '''Represents strongly named DataRow class.
10756     '''</summary>
10757     Partial Public Class LogsRow
10758         Inherits Global.System.Data.DataRow
10759         
10760         Private tableLogs As LogsDataTable
10761         
10762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10764         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10765             MyBase.New(rb)
10766             Me.tableLogs = CType(Me.Table,LogsDataTable)
10767         End Sub
10768         
10769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10771         Public Property ID() As Integer
10772             Get
10773                 Return CType(Me(Me.tableLogs.IDColumn),Integer)
10774             End Get
10775             Set
10776                 Me(Me.tableLogs.IDColumn) = value
10777             End Set
10778         End Property
10779         
10780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10782         Public Property UserID() As String
10783             Get
10784                 Return CType(Me(Me.tableLogs.UserIDColumn),String)
10785             End Get
10786             Set
10787                 Me(Me.tableLogs.UserIDColumn) = value
10788             End Set
10789         End Property
10790         
10791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10793         Public Property Operation() As String
10794             Get
10795                 Return CType(Me(Me.tableLogs.OperationColumn),String)
10796             End Get
10797             Set
10798                 Me(Me.tableLogs.OperationColumn) = value
10799             End Set
10800         End Property
10801         
10802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10804         Public Property _Date() As Date
10805             Get
10806                 Return CType(Me(Me.tableLogs.DateColumn),Date)
10807             End Get
10808             Set
10809                 Me(Me.tableLogs.DateColumn) = value
10810             End Set
10811         End Property
10812         
10813         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10814          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10815         Public Property RegistrationRow() As RegistrationRow
10816             Get
10817                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Logs_Registration")),RegistrationRow)
10818             End Get
10819             Set
10820                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Logs_Registration"))
10821             End Set
10822         End Property
10823     End Class
10824     
10825     '''<summary>
10826     '''Represents strongly named DataRow class.
10827     '''</summary>
10828     Partial Public Class ProductRow
10829         Inherits Global.System.Data.DataRow
10830         
10831         Private tableProduct As ProductDataTable
10832         
10833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10835         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10836             MyBase.New(rb)
10837             Me.tableProduct = CType(Me.Table,ProductDataTable)
10838         End Sub
10839         
10840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10842         Public Property PID() As Integer
10843             Get
10844                 Return CType(Me(Me.tableProduct.PIDColumn),Integer)
10845             End Get
10846             Set
10847                 Me(Me.tableProduct.PIDColumn) = value
10848             End Set
10849         End Property
10850         
10851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10853         Public Property ProductCode() As String
10854             Get
10855                 Return CType(Me(Me.tableProduct.ProductCodeColumn),String)
10856             End Get
10857             Set
10858                 Me(Me.tableProduct.ProductCodeColumn) = value
10859             End Set
10860         End Property
10861         
10862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10864         Public Property ProductName() As String
10865             Get
10866                 Return CType(Me(Me.tableProduct.ProductNameColumn),String)
10867             End Get
10868             Set
10869                 Me(Me.tableProduct.ProductNameColumn) = value
10870             End Set
10871         End Property
10872         
10873         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10874          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10875         Public Property SubCategoryID() As Integer
10876             Get
10877                 Return CType(Me(Me.tableProduct.SubCategoryIDColumn),Integer)
10878             End Get
10879             Set
10880                 Me(Me.tableProduct.SubCategoryIDColumn) = value
10881             End Set
10882         End Property
10883         
10884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10886         Public Property Description() As String
10887             Get
10888                 Try
10889                     Return CType(Me(Me.tableProduct.DescriptionColumn),String)
10890                 Catch e As Global.System.InvalidCastException
10891                     Throw New Global.System.Data.StrongTypingException("The value for column 'Description' in table 'Product' is DBNull.", e)
10892                 End Try
10893             End Get
10894             Set
10895                 Me(Me.tableProduct.DescriptionColumn) = value
10896             End Set
10897         End Property
10898         
10899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10901         Public Property CostPrice() As Decimal
10902             Get
10903                 Return CType(Me(Me.tableProduct.CostPriceColumn),Decimal)
10904             End Get
10905             Set
10906                 Me(Me.tableProduct.CostPriceColumn) = value
10907             End Set
10908         End Property
10909         
10910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10912         Public Property SellingPrice() As Decimal
10913             Get
10914                 Return CType(Me(Me.tableProduct.SellingPriceColumn),Decimal)
10915             End Get
10916             Set
10917                 Me(Me.tableProduct.SellingPriceColumn) = value
10918             End Set
10919         End Property
10920         
10921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10923         Public Property Discount() As Decimal
10924             Get
10925                 Return CType(Me(Me.tableProduct.DiscountColumn),Decimal)
10926             End Get
10927             Set
10928                 Me(Me.tableProduct.DiscountColumn) = value
10929             End Set
10930         End Property
10931         
10932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10934         Public Property VAT() As Decimal
10935             Get
10936                 Return CType(Me(Me.tableProduct.VATColumn),Decimal)
10937             End Get
10938             Set
10939                 Me(Me.tableProduct.VATColumn) = value
10940             End Set
10941         End Property
10942         
10943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10945         Public Property ReorderPoint() As Integer
10946             Get
10947                 Return CType(Me(Me.tableProduct.ReorderPointColumn),Integer)
10948             End Get
10949             Set
10950                 Me(Me.tableProduct.ReorderPointColumn) = value
10951             End Set
10952         End Property
10953         
10954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10956         Public Property SubCategoryRow() As SubCategoryRow
10957             Get
10958                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Product_SubCategory")),SubCategoryRow)
10959             End Get
10960             Set
10961                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Product_SubCategory"))
10962             End Set
10963         End Property
10964         
10965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10967         Public Function IsDescriptionNull() As Boolean
10968             Return Me.IsNull(Me.tableProduct.DescriptionColumn)
10969         End Function
10970         
10971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10973         Public Sub SetDescriptionNull()
10974             Me(Me.tableProduct.DescriptionColumn) = Global.System.Convert.DBNull
10975         End Sub
10976         
10977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10979         Public Function GetInvoice_ProductRows() As Invoice_ProductRow()
10980             If (Me.Table.ChildRelations("FK_Invoice_Product_Product") Is Nothing) Then
10981                 Return New Invoice_ProductRow(-1) {}
10982             Else
10983                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Product_Product")),Invoice_ProductRow())
10984             End If
10985         End Function
10986         
10987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10989         Public Function GetInvoice1_ProductRows() As Invoice1_ProductRow()
10990             If (Me.Table.ChildRelations("FK_Invoice1_Product_Product") Is Nothing) Then
10991                 Return New Invoice1_ProductRow(-1) {}
10992             Else
10993                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice1_Product_Product")),Invoice1_ProductRow())
10994             End If
10995         End Function
10996         
10997         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10998          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10999         Public Function GetProduct_JoinRows() As Product_JoinRow()
11000             If (Me.Table.ChildRelations("FK_Product_Join_Product") Is Nothing) Then
11001                 Return New Product_JoinRow(-1) {}
11002             Else
11003                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Product_Join_Product")),Product_JoinRow())
11004             End If
11005         End Function
11006         
11007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11009         Public Function GetQuotation_JoinRows() As Quotation_JoinRow()
11010             If (Me.Table.ChildRelations("FK_Quotation_Join_Product") Is Nothing) Then
11011                 Return New Quotation_JoinRow(-1) {}
11012             Else
11013                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Join_Product")),Quotation_JoinRow())
11014             End If
11015         End Function
11016         
11017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11019         Public Function GetStock_ProductRows() As Stock_ProductRow()
11020             If (Me.Table.ChildRelations("FK_Stock_Product_Product") Is Nothing) Then
11021                 Return New Stock_ProductRow(-1) {}
11022             Else
11023                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Product_Product")),Stock_ProductRow())
11024             End If
11025         End Function
11026         
11027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11029         Public Function GetTemp_StockRows() As Temp_StockRow()
11030             If (Me.Table.ChildRelations("FK_Temp_Stock_Product") Is Nothing) Then
11031                 Return New Temp_StockRow(-1) {}
11032             Else
11033                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Temp_Stock_Product")),Temp_StockRow())
11034             End If
11035         End Function
11036     End Class
11037     
11038     '''<summary>
11039     '''Represents strongly named DataRow class.
11040     '''</summary>
11041     Partial Public Class Product_JoinRow
11042         Inherits Global.System.Data.DataRow
11043         
11044         Private tableProduct_Join As Product_JoinDataTable
11045         
11046         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11047          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11048         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11049             MyBase.New(rb)
11050             Me.tableProduct_Join = CType(Me.Table,Product_JoinDataTable)
11051         End Sub
11052         
11053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11055         Public Property Id() As Integer
11056             Get
11057                 Return CType(Me(Me.tableProduct_Join.IdColumn),Integer)
11058             End Get
11059             Set
11060                 Me(Me.tableProduct_Join.IdColumn) = value
11061             End Set
11062         End Property
11063         
11064         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11065          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11066         Public Property ProductID() As Integer
11067             Get
11068                 Return CType(Me(Me.tableProduct_Join.ProductIDColumn),Integer)
11069             End Get
11070             Set
11071                 Me(Me.tableProduct_Join.ProductIDColumn) = value
11072             End Set
11073         End Property
11074         
11075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11077         Public Property Photo() As Byte()
11078             Get
11079                 Return CType(Me(Me.tableProduct_Join.PhotoColumn),Byte())
11080             End Get
11081             Set
11082                 Me(Me.tableProduct_Join.PhotoColumn) = value
11083             End Set
11084         End Property
11085         
11086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11088         Public Property ProductRow() As ProductRow
11089             Get
11090                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Product_Join_Product")),ProductRow)
11091             End Get
11092             Set
11093                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Product_Join_Product"))
11094             End Set
11095         End Property
11096     End Class
11097     
11098     '''<summary>
11099     '''Represents strongly named DataRow class.
11100     '''</summary>
11101     Partial Public Class QuotationRow
11102         Inherits Global.System.Data.DataRow
11103         
11104         Private tableQuotation As QuotationDataTable
11105         
11106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11108         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11109             MyBase.New(rb)
11110             Me.tableQuotation = CType(Me.Table,QuotationDataTable)
11111         End Sub
11112         
11113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11115         Public Property Q_ID() As Integer
11116             Get
11117                 Return CType(Me(Me.tableQuotation.Q_IDColumn),Integer)
11118             End Get
11119             Set
11120                 Me(Me.tableQuotation.Q_IDColumn) = value
11121             End Set
11122         End Property
11123         
11124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11126         Public Property QuotationNo() As String
11127             Get
11128                 Return CType(Me(Me.tableQuotation.QuotationNoColumn),String)
11129             End Get
11130             Set
11131                 Me(Me.tableQuotation.QuotationNoColumn) = value
11132             End Set
11133         End Property
11134         
11135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11137         Public Property _Date() As Date
11138             Get
11139                 Return CType(Me(Me.tableQuotation.DateColumn),Date)
11140             End Get
11141             Set
11142                 Me(Me.tableQuotation.DateColumn) = value
11143             End Set
11144         End Property
11145         
11146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11148         Public Property CustomerID() As Integer
11149             Get
11150                 Return CType(Me(Me.tableQuotation.CustomerIDColumn),Integer)
11151             End Get
11152             Set
11153                 Me(Me.tableQuotation.CustomerIDColumn) = value
11154             End Set
11155         End Property
11156         
11157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11159         Public Property GrandTotal() As Decimal
11160             Get
11161                 Return CType(Me(Me.tableQuotation.GrandTotalColumn),Decimal)
11162             End Get
11163             Set
11164                 Me(Me.tableQuotation.GrandTotalColumn) = value
11165             End Set
11166         End Property
11167         
11168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11170         Public Property Remarks() As String
11171             Get
11172                 Try
11173                     Return CType(Me(Me.tableQuotation.RemarksColumn),String)
11174                 Catch e As Global.System.InvalidCastException
11175                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Quotation' is DBNull.", e)
11176                 End Try
11177             End Get
11178             Set
11179                 Me(Me.tableQuotation.RemarksColumn) = value
11180             End Set
11181         End Property
11182         
11183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11185         Public Property CustomerRow() As CustomerRow
11186             Get
11187                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Customer")),CustomerRow)
11188             End Get
11189             Set
11190                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Customer"))
11191             End Set
11192         End Property
11193         
11194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11196         Public Function IsRemarksNull() As Boolean
11197             Return Me.IsNull(Me.tableQuotation.RemarksColumn)
11198         End Function
11199         
11200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11202         Public Sub SetRemarksNull()
11203             Me(Me.tableQuotation.RemarksColumn) = Global.System.Convert.DBNull
11204         End Sub
11205         
11206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11208         Public Function GetQuotation_JoinRows() As Quotation_JoinRow()
11209             If (Me.Table.ChildRelations("FK_Quotation_Join_Quotation") Is Nothing) Then
11210                 Return New Quotation_JoinRow(-1) {}
11211             Else
11212                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Join_Quotation")),Quotation_JoinRow())
11213             End If
11214         End Function
11215     End Class
11216     
11217     '''<summary>
11218     '''Represents strongly named DataRow class.
11219     '''</summary>
11220     Partial Public Class Quotation_JoinRow
11221         Inherits Global.System.Data.DataRow
11222         
11223         Private tableQuotation_Join As Quotation_JoinDataTable
11224         
11225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11227         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11228             MyBase.New(rb)
11229             Me.tableQuotation_Join = CType(Me.Table,Quotation_JoinDataTable)
11230         End Sub
11231         
11232         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11233          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11234         Public Property QJ_ID() As Integer
11235             Get
11236                 Return CType(Me(Me.tableQuotation_Join.QJ_IDColumn),Integer)
11237             End Get
11238             Set
11239                 Me(Me.tableQuotation_Join.QJ_IDColumn) = value
11240             End Set
11241         End Property
11242         
11243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11245         Public Property QuotationID() As Integer
11246             Get
11247                 Return CType(Me(Me.tableQuotation_Join.QuotationIDColumn),Integer)
11248             End Get
11249             Set
11250                 Me(Me.tableQuotation_Join.QuotationIDColumn) = value
11251             End Set
11252         End Property
11253         
11254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11256         Public Property ProductID() As Integer
11257             Get
11258                 Return CType(Me(Me.tableQuotation_Join.ProductIDColumn),Integer)
11259             End Get
11260             Set
11261                 Me(Me.tableQuotation_Join.ProductIDColumn) = value
11262             End Set
11263         End Property
11264         
11265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11267         Public Property Cost() As Decimal
11268             Get
11269                 Return CType(Me(Me.tableQuotation_Join.CostColumn),Decimal)
11270             End Get
11271             Set
11272                 Me(Me.tableQuotation_Join.CostColumn) = value
11273             End Set
11274         End Property
11275         
11276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11278         Public Property Qty() As Integer
11279             Get
11280                 Return CType(Me(Me.tableQuotation_Join.QtyColumn),Integer)
11281             End Get
11282             Set
11283                 Me(Me.tableQuotation_Join.QtyColumn) = value
11284             End Set
11285         End Property
11286         
11287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11289         Public Property Amount() As Decimal
11290             Get
11291                 Return CType(Me(Me.tableQuotation_Join.AmountColumn),Decimal)
11292             End Get
11293             Set
11294                 Me(Me.tableQuotation_Join.AmountColumn) = value
11295             End Set
11296         End Property
11297         
11298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11300         Public Property DiscountPer() As Decimal
11301             Get
11302                 Return CType(Me(Me.tableQuotation_Join.DiscountPerColumn),Decimal)
11303             End Get
11304             Set
11305                 Me(Me.tableQuotation_Join.DiscountPerColumn) = value
11306             End Set
11307         End Property
11308         
11309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11311         Public Property Discount() As Decimal
11312             Get
11313                 Return CType(Me(Me.tableQuotation_Join.DiscountColumn),Decimal)
11314             End Get
11315             Set
11316                 Me(Me.tableQuotation_Join.DiscountColumn) = value
11317             End Set
11318         End Property
11319         
11320         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11321          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11322         Public Property VATPer() As Decimal
11323             Get
11324                 Return CType(Me(Me.tableQuotation_Join.VATPerColumn),Decimal)
11325             End Get
11326             Set
11327                 Me(Me.tableQuotation_Join.VATPerColumn) = value
11328             End Set
11329         End Property
11330         
11331         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11332          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11333         Public Property VAT() As Decimal
11334             Get
11335                 Return CType(Me(Me.tableQuotation_Join.VATColumn),Decimal)
11336             End Get
11337             Set
11338                 Me(Me.tableQuotation_Join.VATColumn) = value
11339             End Set
11340         End Property
11341         
11342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11344         Public Property TotalAmount() As Decimal
11345             Get
11346                 Return CType(Me(Me.tableQuotation_Join.TotalAmountColumn),Decimal)
11347             End Get
11348             Set
11349                 Me(Me.tableQuotation_Join.TotalAmountColumn) = value
11350             End Set
11351         End Property
11352         
11353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11355         Public Property ProductRow() As ProductRow
11356             Get
11357                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Join_Product")),ProductRow)
11358             End Get
11359             Set
11360                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Join_Product"))
11361             End Set
11362         End Property
11363         
11364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11366         Public Property QuotationRow() As QuotationRow
11367             Get
11368                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Join_Quotation")),QuotationRow)
11369             End Get
11370             Set
11371                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Join_Quotation"))
11372             End Set
11373         End Property
11374     End Class
11375     
11376     '''<summary>
11377     '''Represents strongly named DataRow class.
11378     '''</summary>
11379     Partial Public Class RegistrationRow
11380         Inherits Global.System.Data.DataRow
11381         
11382         Private tableRegistration As RegistrationDataTable
11383         
11384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11386         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11387             MyBase.New(rb)
11388             Me.tableRegistration = CType(Me.Table,RegistrationDataTable)
11389         End Sub
11390         
11391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11393         Public Property UserID() As String
11394             Get
11395                 Return CType(Me(Me.tableRegistration.UserIDColumn),String)
11396             End Get
11397             Set
11398                 Me(Me.tableRegistration.UserIDColumn) = value
11399             End Set
11400         End Property
11401         
11402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11404         Public Property UserType() As String
11405             Get
11406                 Return CType(Me(Me.tableRegistration.UserTypeColumn),String)
11407             End Get
11408             Set
11409                 Me(Me.tableRegistration.UserTypeColumn) = value
11410             End Set
11411         End Property
11412         
11413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11415         Public Property Password() As String
11416             Get
11417                 Return CType(Me(Me.tableRegistration.PasswordColumn),String)
11418             End Get
11419             Set
11420                 Me(Me.tableRegistration.PasswordColumn) = value
11421             End Set
11422         End Property
11423         
11424         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11425          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11426         Public Property Name() As String
11427             Get
11428                 Return CType(Me(Me.tableRegistration.NameColumn),String)
11429             End Get
11430             Set
11431                 Me(Me.tableRegistration.NameColumn) = value
11432             End Set
11433         End Property
11434         
11435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11437         Public Property ContactNo() As String
11438             Get
11439                 Return CType(Me(Me.tableRegistration.ContactNoColumn),String)
11440             End Get
11441             Set
11442                 Me(Me.tableRegistration.ContactNoColumn) = value
11443             End Set
11444         End Property
11445         
11446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11448         Public Property EmailID() As String
11449             Get
11450                 Try
11451                     Return CType(Me(Me.tableRegistration.EmailIDColumn),String)
11452                 Catch e As Global.System.InvalidCastException
11453                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Registration' is DBNull.", e)
11454                 End Try
11455             End Get
11456             Set
11457                 Me(Me.tableRegistration.EmailIDColumn) = value
11458             End Set
11459         End Property
11460         
11461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11463         Public Property JoiningDate() As Date
11464             Get
11465                 Try
11466                     Return CType(Me(Me.tableRegistration.JoiningDateColumn),Date)
11467                 Catch e As Global.System.InvalidCastException
11468                     Throw New Global.System.Data.StrongTypingException("The value for column 'JoiningDate' in table 'Registration' is DBNull.", e)
11469                 End Try
11470             End Get
11471             Set
11472                 Me(Me.tableRegistration.JoiningDateColumn) = value
11473             End Set
11474         End Property
11475         
11476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11478         Public Function IsEmailIDNull() As Boolean
11479             Return Me.IsNull(Me.tableRegistration.EmailIDColumn)
11480         End Function
11481         
11482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11484         Public Sub SetEmailIDNull()
11485             Me(Me.tableRegistration.EmailIDColumn) = Global.System.Convert.DBNull
11486         End Sub
11487         
11488         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11489          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11490         Public Function IsJoiningDateNull() As Boolean
11491             Return Me.IsNull(Me.tableRegistration.JoiningDateColumn)
11492         End Function
11493         
11494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11496         Public Sub SetJoiningDateNull()
11497             Me(Me.tableRegistration.JoiningDateColumn) = Global.System.Convert.DBNull
11498         End Sub
11499         
11500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11502         Public Function GetLogsRows() As LogsRow()
11503             If (Me.Table.ChildRelations("FK_Logs_Registration") Is Nothing) Then
11504                 Return New LogsRow(-1) {}
11505             Else
11506                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Logs_Registration")),LogsRow())
11507             End If
11508         End Function
11509     End Class
11510     
11511     '''<summary>
11512     '''Represents strongly named DataRow class.
11513     '''</summary>
11514     Partial Public Class ServiceRow
11515         Inherits Global.System.Data.DataRow
11516         
11517         Private tableService As ServiceDataTable
11518         
11519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11521         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11522             MyBase.New(rb)
11523             Me.tableService = CType(Me.Table,ServiceDataTable)
11524         End Sub
11525         
11526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11528         Public Property S_ID() As Integer
11529             Get
11530                 Return CType(Me(Me.tableService.S_IDColumn),Integer)
11531             End Get
11532             Set
11533                 Me(Me.tableService.S_IDColumn) = value
11534             End Set
11535         End Property
11536         
11537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11539         Public Property ServiceCode() As String
11540             Get
11541                 Return CType(Me(Me.tableService.ServiceCodeColumn),String)
11542             End Get
11543             Set
11544                 Me(Me.tableService.ServiceCodeColumn) = value
11545             End Set
11546         End Property
11547         
11548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11550         Public Property CustomerID() As Integer
11551             Get
11552                 Return CType(Me(Me.tableService.CustomerIDColumn),Integer)
11553             End Get
11554             Set
11555                 Me(Me.tableService.CustomerIDColumn) = value
11556             End Set
11557         End Property
11558         
11559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11561         Public Property ServiceType() As String
11562             Get
11563                 Try
11564                     Return CType(Me(Me.tableService.ServiceTypeColumn),String)
11565                 Catch e As Global.System.InvalidCastException
11566                     Throw New Global.System.Data.StrongTypingException("The value for column 'ServiceType' in table 'Service' is DBNull.", e)
11567                 End Try
11568             End Get
11569             Set
11570                 Me(Me.tableService.ServiceTypeColumn) = value
11571             End Set
11572         End Property
11573         
11574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11576         Public Property ServiceCreationDate() As Date
11577             Get
11578                 Return CType(Me(Me.tableService.ServiceCreationDateColumn),Date)
11579             End Get
11580             Set
11581                 Me(Me.tableService.ServiceCreationDateColumn) = value
11582             End Set
11583         End Property
11584         
11585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11587         Public Property ItemDescription() As String
11588             Get
11589                 Return CType(Me(Me.tableService.ItemDescriptionColumn),String)
11590             End Get
11591             Set
11592                 Me(Me.tableService.ItemDescriptionColumn) = value
11593             End Set
11594         End Property
11595         
11596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11598         Public Property ProblemDescription() As String
11599             Get
11600                 Try
11601                     Return CType(Me(Me.tableService.ProblemDescriptionColumn),String)
11602                 Catch e As Global.System.InvalidCastException
11603                     Throw New Global.System.Data.StrongTypingException("The value for column 'ProblemDescription' in table 'Service' is DBNull.", e)
11604                 End Try
11605             End Get
11606             Set
11607                 Me(Me.tableService.ProblemDescriptionColumn) = value
11608             End Set
11609         End Property
11610         
11611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11613         Public Property ChargesQuote() As Decimal
11614             Get
11615                 Return CType(Me(Me.tableService.ChargesQuoteColumn),Decimal)
11616             End Get
11617             Set
11618                 Me(Me.tableService.ChargesQuoteColumn) = value
11619             End Set
11620         End Property
11621         
11622         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11623          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11624         Public Property AdvanceDeposit() As Decimal
11625             Get
11626                 Return CType(Me(Me.tableService.AdvanceDepositColumn),Decimal)
11627             End Get
11628             Set
11629                 Me(Me.tableService.AdvanceDepositColumn) = value
11630             End Set
11631         End Property
11632         
11633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11635         Public Property EstimatedRepairDate() As Date
11636             Get
11637                 Return CType(Me(Me.tableService.EstimatedRepairDateColumn),Date)
11638             End Get
11639             Set
11640                 Me(Me.tableService.EstimatedRepairDateColumn) = value
11641             End Set
11642         End Property
11643         
11644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11646         Public Property Remarks() As String
11647             Get
11648                 Try
11649                     Return CType(Me(Me.tableService.RemarksColumn),String)
11650                 Catch e As Global.System.InvalidCastException
11651                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Service' is DBNull.", e)
11652                 End Try
11653             End Get
11654             Set
11655                 Me(Me.tableService.RemarksColumn) = value
11656             End Set
11657         End Property
11658         
11659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11661         Public Property Status() As String
11662             Get
11663                 Return CType(Me(Me.tableService.StatusColumn),String)
11664             End Get
11665             Set
11666                 Me(Me.tableService.StatusColumn) = value
11667             End Set
11668         End Property
11669         
11670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11672         Public Property CustomerRow() As CustomerRow
11673             Get
11674                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Service_Customer")),CustomerRow)
11675             End Get
11676             Set
11677                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Service_Customer"))
11678             End Set
11679         End Property
11680         
11681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11683         Public Function IsServiceTypeNull() As Boolean
11684             Return Me.IsNull(Me.tableService.ServiceTypeColumn)
11685         End Function
11686         
11687         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11688          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11689         Public Sub SetServiceTypeNull()
11690             Me(Me.tableService.ServiceTypeColumn) = Global.System.Convert.DBNull
11691         End Sub
11692         
11693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11695         Public Function IsProblemDescriptionNull() As Boolean
11696             Return Me.IsNull(Me.tableService.ProblemDescriptionColumn)
11697         End Function
11698         
11699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11701         Public Sub SetProblemDescriptionNull()
11702             Me(Me.tableService.ProblemDescriptionColumn) = Global.System.Convert.DBNull
11703         End Sub
11704         
11705         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11706          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11707         Public Function IsRemarksNull() As Boolean
11708             Return Me.IsNull(Me.tableService.RemarksColumn)
11709         End Function
11710         
11711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11713         Public Sub SetRemarksNull()
11714             Me(Me.tableService.RemarksColumn) = Global.System.Convert.DBNull
11715         End Sub
11716         
11717         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11718          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11719         Public Function GetInvoiceInfo1Rows() As InvoiceInfo1Row()
11720             If (Me.Table.ChildRelations("FK_InvoiceInfo1_Service") Is Nothing) Then
11721                 Return New InvoiceInfo1Row(-1) {}
11722             Else
11723                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_InvoiceInfo1_Service")),InvoiceInfo1Row())
11724             End If
11725         End Function
11726     End Class
11727     
11728     '''<summary>
11729     '''Represents strongly named DataRow class.
11730     '''</summary>
11731     Partial Public Class StockRow
11732         Inherits Global.System.Data.DataRow
11733         
11734         Private tableStock As StockDataTable
11735         
11736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11738         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11739             MyBase.New(rb)
11740             Me.tableStock = CType(Me.Table,StockDataTable)
11741         End Sub
11742         
11743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11745         Public Property ST_ID() As Integer
11746             Get
11747                 Return CType(Me(Me.tableStock.ST_IDColumn),Integer)
11748             End Get
11749             Set
11750                 Me(Me.tableStock.ST_IDColumn) = value
11751             End Set
11752         End Property
11753         
11754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11756         Public Property Stock_ID() As String
11757             Get
11758                 Return CType(Me(Me.tableStock.Stock_IDColumn),String)
11759             End Get
11760             Set
11761                 Me(Me.tableStock.Stock_IDColumn) = value
11762             End Set
11763         End Property
11764         
11765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11767         Public Property _Date() As Date
11768             Get
11769                 Return CType(Me(Me.tableStock.DateColumn),Date)
11770             End Get
11771             Set
11772                 Me(Me.tableStock.DateColumn) = value
11773             End Set
11774         End Property
11775         
11776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11778         Public Property SupplierID() As Integer
11779             Get
11780                 Return CType(Me(Me.tableStock.SupplierIDColumn),Integer)
11781             End Get
11782             Set
11783                 Me(Me.tableStock.SupplierIDColumn) = value
11784             End Set
11785         End Property
11786         
11787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11789         Public Property GrandTotal() As Decimal
11790             Get
11791                 Return CType(Me(Me.tableStock.GrandTotalColumn),Decimal)
11792             End Get
11793             Set
11794                 Me(Me.tableStock.GrandTotalColumn) = value
11795             End Set
11796         End Property
11797         
11798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11800         Public Property TotalPayment() As Decimal
11801             Get
11802                 Return CType(Me(Me.tableStock.TotalPaymentColumn),Decimal)
11803             End Get
11804             Set
11805                 Me(Me.tableStock.TotalPaymentColumn) = value
11806             End Set
11807         End Property
11808         
11809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11811         Public Property PaymentDue() As Decimal
11812             Get
11813                 Return CType(Me(Me.tableStock.PaymentDueColumn),Decimal)
11814             End Get
11815             Set
11816                 Me(Me.tableStock.PaymentDueColumn) = value
11817             End Set
11818         End Property
11819         
11820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11822         Public Property Remarks() As String
11823             Get
11824                 Try
11825                     Return CType(Me(Me.tableStock.RemarksColumn),String)
11826                 Catch e As Global.System.InvalidCastException
11827                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Stock' is DBNull.", e)
11828                 End Try
11829             End Get
11830             Set
11831                 Me(Me.tableStock.RemarksColumn) = value
11832             End Set
11833         End Property
11834         
11835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11837         Public Property SupplierRow() As SupplierRow
11838             Get
11839                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Supplier")),SupplierRow)
11840             End Get
11841             Set
11842                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Supplier"))
11843             End Set
11844         End Property
11845         
11846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11848         Public Function IsRemarksNull() As Boolean
11849             Return Me.IsNull(Me.tableStock.RemarksColumn)
11850         End Function
11851         
11852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11854         Public Sub SetRemarksNull()
11855             Me(Me.tableStock.RemarksColumn) = Global.System.Convert.DBNull
11856         End Sub
11857         
11858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11860         Public Function GetStock_ProductRows() As Stock_ProductRow()
11861             If (Me.Table.ChildRelations("FK_Stock_Product_Stock") Is Nothing) Then
11862                 Return New Stock_ProductRow(-1) {}
11863             Else
11864                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Product_Stock")),Stock_ProductRow())
11865             End If
11866         End Function
11867     End Class
11868     
11869     '''<summary>
11870     '''Represents strongly named DataRow class.
11871     '''</summary>
11872     Partial Public Class Stock_ProductRow
11873         Inherits Global.System.Data.DataRow
11874         
11875         Private tableStock_Product As Stock_ProductDataTable
11876         
11877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11879         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11880             MyBase.New(rb)
11881             Me.tableStock_Product = CType(Me.Table,Stock_ProductDataTable)
11882         End Sub
11883         
11884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11886         Public Property SP_ID() As Integer
11887             Get
11888                 Return CType(Me(Me.tableStock_Product.SP_IDColumn),Integer)
11889             End Get
11890             Set
11891                 Me(Me.tableStock_Product.SP_IDColumn) = value
11892             End Set
11893         End Property
11894         
11895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11897         Public Property StockID() As Integer
11898             Get
11899                 Return CType(Me(Me.tableStock_Product.StockIDColumn),Integer)
11900             End Get
11901             Set
11902                 Me(Me.tableStock_Product.StockIDColumn) = value
11903             End Set
11904         End Property
11905         
11906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11908         Public Property ProductID() As Integer
11909             Get
11910                 Return CType(Me(Me.tableStock_Product.ProductIDColumn),Integer)
11911             End Get
11912             Set
11913                 Me(Me.tableStock_Product.ProductIDColumn) = value
11914             End Set
11915         End Property
11916         
11917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11919         Public Property Qty() As Integer
11920             Get
11921                 Return CType(Me(Me.tableStock_Product.QtyColumn),Integer)
11922             End Get
11923             Set
11924                 Me(Me.tableStock_Product.QtyColumn) = value
11925             End Set
11926         End Property
11927         
11928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11930         Public Property Price() As Decimal
11931             Get
11932                 Return CType(Me(Me.tableStock_Product.PriceColumn),Decimal)
11933             End Get
11934             Set
11935                 Me(Me.tableStock_Product.PriceColumn) = value
11936             End Set
11937         End Property
11938         
11939         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11940          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11941         Public Property TotalAmount() As Decimal
11942             Get
11943                 Return CType(Me(Me.tableStock_Product.TotalAmountColumn),Decimal)
11944             End Get
11945             Set
11946                 Me(Me.tableStock_Product.TotalAmountColumn) = value
11947             End Set
11948         End Property
11949         
11950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11952         Public Property ProductRow() As ProductRow
11953             Get
11954                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Product_Product")),ProductRow)
11955             End Get
11956             Set
11957                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Product_Product"))
11958             End Set
11959         End Property
11960         
11961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11963         Public Property StockRow() As StockRow
11964             Get
11965                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Product_Stock")),StockRow)
11966             End Get
11967             Set
11968                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Product_Stock"))
11969             End Set
11970         End Property
11971     End Class
11972     
11973     '''<summary>
11974     '''Represents strongly named DataRow class.
11975     '''</summary>
11976     Partial Public Class SubCategoryRow
11977         Inherits Global.System.Data.DataRow
11978         
11979         Private tableSubCategory As SubCategoryDataTable
11980         
11981         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11982          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11983         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11984             MyBase.New(rb)
11985             Me.tableSubCategory = CType(Me.Table,SubCategoryDataTable)
11986         End Sub
11987         
11988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11990         Public Property ID() As Integer
11991             Get
11992                 Return CType(Me(Me.tableSubCategory.IDColumn),Integer)
11993             End Get
11994             Set
11995                 Me(Me.tableSubCategory.IDColumn) = value
11996             End Set
11997         End Property
11998         
11999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12001         Public Property SubCategoryName() As String
12002             Get
12003                 Return CType(Me(Me.tableSubCategory.SubCategoryNameColumn),String)
12004             End Get
12005             Set
12006                 Me(Me.tableSubCategory.SubCategoryNameColumn) = value
12007             End Set
12008         End Property
12009         
12010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12012         Public Property Category() As String
12013             Get
12014                 Return CType(Me(Me.tableSubCategory.CategoryColumn),String)
12015             End Get
12016             Set
12017                 Me(Me.tableSubCategory.CategoryColumn) = value
12018             End Set
12019         End Property
12020         
12021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12023         Public Property CategoryRow() As CategoryRow
12024             Get
12025                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_SubCategory_Category")),CategoryRow)
12026             End Get
12027             Set
12028                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_SubCategory_Category"))
12029             End Set
12030         End Property
12031         
12032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12034         Public Function GetProductRows() As ProductRow()
12035             If (Me.Table.ChildRelations("FK_Product_SubCategory") Is Nothing) Then
12036                 Return New ProductRow(-1) {}
12037             Else
12038                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Product_SubCategory")),ProductRow())
12039             End If
12040         End Function
12041     End Class
12042     
12043     '''<summary>
12044     '''Represents strongly named DataRow class.
12045     '''</summary>
12046     Partial Public Class SupplierRow
12047         Inherits Global.System.Data.DataRow
12048         
12049         Private tableSupplier As SupplierDataTable
12050         
12051         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12052          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12053         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12054             MyBase.New(rb)
12055             Me.tableSupplier = CType(Me.Table,SupplierDataTable)
12056         End Sub
12057         
12058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12060         Public Property ID() As Integer
12061             Get
12062                 Return CType(Me(Me.tableSupplier.IDColumn),Integer)
12063             End Get
12064             Set
12065                 Me(Me.tableSupplier.IDColumn) = value
12066             End Set
12067         End Property
12068         
12069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12071         Public Property SupplierID() As String
12072             Get
12073                 Return CType(Me(Me.tableSupplier.SupplierIDColumn),String)
12074             End Get
12075             Set
12076                 Me(Me.tableSupplier.SupplierIDColumn) = value
12077             End Set
12078         End Property
12079         
12080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12082         Public Property Name() As String
12083             Get
12084                 Return CType(Me(Me.tableSupplier.NameColumn),String)
12085             End Get
12086             Set
12087                 Me(Me.tableSupplier.NameColumn) = value
12088             End Set
12089         End Property
12090         
12091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12093         Public Property Address() As String
12094             Get
12095                 Return CType(Me(Me.tableSupplier.AddressColumn),String)
12096             End Get
12097             Set
12098                 Me(Me.tableSupplier.AddressColumn) = value
12099             End Set
12100         End Property
12101         
12102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12104         Public Property City() As String
12105             Get
12106                 Return CType(Me(Me.tableSupplier.CityColumn),String)
12107             End Get
12108             Set
12109                 Me(Me.tableSupplier.CityColumn) = value
12110             End Set
12111         End Property
12112         
12113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12115         Public Property State() As String
12116             Get
12117                 Return CType(Me(Me.tableSupplier.StateColumn),String)
12118             End Get
12119             Set
12120                 Me(Me.tableSupplier.StateColumn) = value
12121             End Set
12122         End Property
12123         
12124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12126         Public Property ZipCode() As String
12127             Get
12128                 Try
12129                     Return CType(Me(Me.tableSupplier.ZipCodeColumn),String)
12130                 Catch e As Global.System.InvalidCastException
12131                     Throw New Global.System.Data.StrongTypingException("The value for column 'ZipCode' in table 'Supplier' is DBNull.", e)
12132                 End Try
12133             End Get
12134             Set
12135                 Me(Me.tableSupplier.ZipCodeColumn) = value
12136             End Set
12137         End Property
12138         
12139         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12140          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12141         Public Property ContactNo() As String
12142             Get
12143                 Return CType(Me(Me.tableSupplier.ContactNoColumn),String)
12144             End Get
12145             Set
12146                 Me(Me.tableSupplier.ContactNoColumn) = value
12147             End Set
12148         End Property
12149         
12150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12152         Public Property EmailID() As String
12153             Get
12154                 Try
12155                     Return CType(Me(Me.tableSupplier.EmailIDColumn),String)
12156                 Catch e As Global.System.InvalidCastException
12157                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Supplier' is DBNull.", e)
12158                 End Try
12159             End Get
12160             Set
12161                 Me(Me.tableSupplier.EmailIDColumn) = value
12162             End Set
12163         End Property
12164         
12165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12167         Public Property Remarks() As String
12168             Get
12169                 Try
12170                     Return CType(Me(Me.tableSupplier.RemarksColumn),String)
12171                 Catch e As Global.System.InvalidCastException
12172                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Supplier' is DBNull.", e)
12173                 End Try
12174             End Get
12175             Set
12176                 Me(Me.tableSupplier.RemarksColumn) = value
12177             End Set
12178         End Property
12179         
12180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12182         Public Function IsZipCodeNull() As Boolean
12183             Return Me.IsNull(Me.tableSupplier.ZipCodeColumn)
12184         End Function
12185         
12186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12188         Public Sub SetZipCodeNull()
12189             Me(Me.tableSupplier.ZipCodeColumn) = Global.System.Convert.DBNull
12190         End Sub
12191         
12192         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12193          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12194         Public Function IsEmailIDNull() As Boolean
12195             Return Me.IsNull(Me.tableSupplier.EmailIDColumn)
12196         End Function
12197         
12198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12200         Public Sub SetEmailIDNull()
12201             Me(Me.tableSupplier.EmailIDColumn) = Global.System.Convert.DBNull
12202         End Sub
12203         
12204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12206         Public Function IsRemarksNull() As Boolean
12207             Return Me.IsNull(Me.tableSupplier.RemarksColumn)
12208         End Function
12209         
12210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12212         Public Sub SetRemarksNull()
12213             Me(Me.tableSupplier.RemarksColumn) = Global.System.Convert.DBNull
12214         End Sub
12215         
12216         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12217          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12218         Public Function GetStockRows() As StockRow()
12219             If (Me.Table.ChildRelations("FK_Stock_Supplier") Is Nothing) Then
12220                 Return New StockRow(-1) {}
12221             Else
12222                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Supplier")),StockRow())
12223             End If
12224         End Function
12225     End Class
12226     
12227     '''<summary>
12228     '''Represents strongly named DataRow class.
12229     '''</summary>
12230     Partial Public Class Temp_StockRow
12231         Inherits Global.System.Data.DataRow
12232         
12233         Private tableTemp_Stock As Temp_StockDataTable
12234         
12235         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12236          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12237         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12238             MyBase.New(rb)
12239             Me.tableTemp_Stock = CType(Me.Table,Temp_StockDataTable)
12240         End Sub
12241         
12242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12244         Public Property ProductID() As Integer
12245             Get
12246                 Return CType(Me(Me.tableTemp_Stock.ProductIDColumn),Integer)
12247             End Get
12248             Set
12249                 Me(Me.tableTemp_Stock.ProductIDColumn) = value
12250             End Set
12251         End Property
12252         
12253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12255         Public Property Qty() As Integer
12256             Get
12257                 Return CType(Me(Me.tableTemp_Stock.QtyColumn),Integer)
12258             End Get
12259             Set
12260                 Me(Me.tableTemp_Stock.QtyColumn) = value
12261             End Set
12262         End Property
12263         
12264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12266         Public Property ProductRow() As ProductRow
12267             Get
12268                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Temp_Stock_Product")),ProductRow)
12269             End Get
12270             Set
12271                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Temp_Stock_Product"))
12272             End Set
12273         End Property
12274     End Class
12275     
12276     '''<summary>
12277     '''Row event argument class
12278     '''</summary>
12279     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12280     Public Class ActivationRowChangeEvent
12281         Inherits Global.System.EventArgs
12282         
12283         Private eventRow As ActivationRow
12284         
12285         Private eventAction As Global.System.Data.DataRowAction
12286         
12287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12289         Public Sub New(ByVal row As ActivationRow, ByVal action As Global.System.Data.DataRowAction)
12290             MyBase.New
12291             Me.eventRow = row
12292             Me.eventAction = action
12293         End Sub
12294         
12295         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12296          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12297         Public ReadOnly Property Row() As ActivationRow
12298             Get
12299                 Return Me.eventRow
12300             End Get
12301         End Property
12302         
12303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12305         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12306             Get
12307                 Return Me.eventAction
12308             End Get
12309         End Property
12310     End Class
12311     
12312     '''<summary>
12313     '''Row event argument class
12314     '''</summary>
12315     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12316     Public Class CategoryRowChangeEvent
12317         Inherits Global.System.EventArgs
12318         
12319         Private eventRow As CategoryRow
12320         
12321         Private eventAction As Global.System.Data.DataRowAction
12322         
12323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12325         Public Sub New(ByVal row As CategoryRow, ByVal action As Global.System.Data.DataRowAction)
12326             MyBase.New
12327             Me.eventRow = row
12328             Me.eventAction = action
12329         End Sub
12330         
12331         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12332          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12333         Public ReadOnly Property Row() As CategoryRow
12334             Get
12335                 Return Me.eventRow
12336             End Get
12337         End Property
12338         
12339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12341         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12342             Get
12343                 Return Me.eventAction
12344             End Get
12345         End Property
12346     End Class
12347     
12348     '''<summary>
12349     '''Row event argument class
12350     '''</summary>
12351     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12352     Public Class CompanyRowChangeEvent
12353         Inherits Global.System.EventArgs
12354         
12355         Private eventRow As CompanyRow
12356         
12357         Private eventAction As Global.System.Data.DataRowAction
12358         
12359         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12360          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12361         Public Sub New(ByVal row As CompanyRow, ByVal action As Global.System.Data.DataRowAction)
12362             MyBase.New
12363             Me.eventRow = row
12364             Me.eventAction = action
12365         End Sub
12366         
12367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12369         Public ReadOnly Property Row() As CompanyRow
12370             Get
12371                 Return Me.eventRow
12372             End Get
12373         End Property
12374         
12375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12377         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12378             Get
12379                 Return Me.eventAction
12380             End Get
12381         End Property
12382     End Class
12383     
12384     '''<summary>
12385     '''Row event argument class
12386     '''</summary>
12387     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12388     Public Class Company_ContactsRowChangeEvent
12389         Inherits Global.System.EventArgs
12390         
12391         Private eventRow As Company_ContactsRow
12392         
12393         Private eventAction As Global.System.Data.DataRowAction
12394         
12395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12397         Public Sub New(ByVal row As Company_ContactsRow, ByVal action As Global.System.Data.DataRowAction)
12398             MyBase.New
12399             Me.eventRow = row
12400             Me.eventAction = action
12401         End Sub
12402         
12403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12405         Public ReadOnly Property Row() As Company_ContactsRow
12406             Get
12407                 Return Me.eventRow
12408             End Get
12409         End Property
12410         
12411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12413         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12414             Get
12415                 Return Me.eventAction
12416             End Get
12417         End Property
12418     End Class
12419     
12420     '''<summary>
12421     '''Row event argument class
12422     '''</summary>
12423     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12424     Public Class CustomerRowChangeEvent
12425         Inherits Global.System.EventArgs
12426         
12427         Private eventRow As CustomerRow
12428         
12429         Private eventAction As Global.System.Data.DataRowAction
12430         
12431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12433         Public Sub New(ByVal row As CustomerRow, ByVal action As Global.System.Data.DataRowAction)
12434             MyBase.New
12435             Me.eventRow = row
12436             Me.eventAction = action
12437         End Sub
12438         
12439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12441         Public ReadOnly Property Row() As CustomerRow
12442             Get
12443                 Return Me.eventRow
12444             End Get
12445         End Property
12446         
12447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12449         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12450             Get
12451                 Return Me.eventAction
12452             End Get
12453         End Property
12454     End Class
12455     
12456     '''<summary>
12457     '''Row event argument class
12458     '''</summary>
12459     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12460     Public Class Invoice_PaymentRowChangeEvent
12461         Inherits Global.System.EventArgs
12462         
12463         Private eventRow As Invoice_PaymentRow
12464         
12465         Private eventAction As Global.System.Data.DataRowAction
12466         
12467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12469         Public Sub New(ByVal row As Invoice_PaymentRow, ByVal action As Global.System.Data.DataRowAction)
12470             MyBase.New
12471             Me.eventRow = row
12472             Me.eventAction = action
12473         End Sub
12474         
12475         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12476          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12477         Public ReadOnly Property Row() As Invoice_PaymentRow
12478             Get
12479                 Return Me.eventRow
12480             End Get
12481         End Property
12482         
12483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12485         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12486             Get
12487                 Return Me.eventAction
12488             End Get
12489         End Property
12490     End Class
12491     
12492     '''<summary>
12493     '''Row event argument class
12494     '''</summary>
12495     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12496     Public Class Invoice_ProductRowChangeEvent
12497         Inherits Global.System.EventArgs
12498         
12499         Private eventRow As Invoice_ProductRow
12500         
12501         Private eventAction As Global.System.Data.DataRowAction
12502         
12503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12505         Public Sub New(ByVal row As Invoice_ProductRow, ByVal action As Global.System.Data.DataRowAction)
12506             MyBase.New
12507             Me.eventRow = row
12508             Me.eventAction = action
12509         End Sub
12510         
12511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12513         Public ReadOnly Property Row() As Invoice_ProductRow
12514             Get
12515                 Return Me.eventRow
12516             End Get
12517         End Property
12518         
12519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12521         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12522             Get
12523                 Return Me.eventAction
12524             End Get
12525         End Property
12526     End Class
12527     
12528     '''<summary>
12529     '''Row event argument class
12530     '''</summary>
12531     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12532     Public Class Invoice1_PaymentRowChangeEvent
12533         Inherits Global.System.EventArgs
12534         
12535         Private eventRow As Invoice1_PaymentRow
12536         
12537         Private eventAction As Global.System.Data.DataRowAction
12538         
12539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12541         Public Sub New(ByVal row As Invoice1_PaymentRow, ByVal action As Global.System.Data.DataRowAction)
12542             MyBase.New
12543             Me.eventRow = row
12544             Me.eventAction = action
12545         End Sub
12546         
12547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12549         Public ReadOnly Property Row() As Invoice1_PaymentRow
12550             Get
12551                 Return Me.eventRow
12552             End Get
12553         End Property
12554         
12555         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12556          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12557         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12558             Get
12559                 Return Me.eventAction
12560             End Get
12561         End Property
12562     End Class
12563     
12564     '''<summary>
12565     '''Row event argument class
12566     '''</summary>
12567     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12568     Public Class Invoice1_ProductRowChangeEvent
12569         Inherits Global.System.EventArgs
12570         
12571         Private eventRow As Invoice1_ProductRow
12572         
12573         Private eventAction As Global.System.Data.DataRowAction
12574         
12575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12577         Public Sub New(ByVal row As Invoice1_ProductRow, ByVal action As Global.System.Data.DataRowAction)
12578             MyBase.New
12579             Me.eventRow = row
12580             Me.eventAction = action
12581         End Sub
12582         
12583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12585         Public ReadOnly Property Row() As Invoice1_ProductRow
12586             Get
12587                 Return Me.eventRow
12588             End Get
12589         End Property
12590         
12591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12593         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12594             Get
12595                 Return Me.eventAction
12596             End Get
12597         End Property
12598     End Class
12599     
12600     '''<summary>
12601     '''Row event argument class
12602     '''</summary>
12603     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12604     Public Class InvoiceInfoRowChangeEvent
12605         Inherits Global.System.EventArgs
12606         
12607         Private eventRow As InvoiceInfoRow
12608         
12609         Private eventAction As Global.System.Data.DataRowAction
12610         
12611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12613         Public Sub New(ByVal row As InvoiceInfoRow, ByVal action As Global.System.Data.DataRowAction)
12614             MyBase.New
12615             Me.eventRow = row
12616             Me.eventAction = action
12617         End Sub
12618         
12619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12621         Public ReadOnly Property Row() As InvoiceInfoRow
12622             Get
12623                 Return Me.eventRow
12624             End Get
12625         End Property
12626         
12627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12629         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12630             Get
12631                 Return Me.eventAction
12632             End Get
12633         End Property
12634     End Class
12635     
12636     '''<summary>
12637     '''Row event argument class
12638     '''</summary>
12639     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12640     Public Class InvoiceInfo1RowChangeEvent
12641         Inherits Global.System.EventArgs
12642         
12643         Private eventRow As InvoiceInfo1Row
12644         
12645         Private eventAction As Global.System.Data.DataRowAction
12646         
12647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12649         Public Sub New(ByVal row As InvoiceInfo1Row, ByVal action As Global.System.Data.DataRowAction)
12650             MyBase.New
12651             Me.eventRow = row
12652             Me.eventAction = action
12653         End Sub
12654         
12655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12657         Public ReadOnly Property Row() As InvoiceInfo1Row
12658             Get
12659                 Return Me.eventRow
12660             End Get
12661         End Property
12662         
12663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12665         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12666             Get
12667                 Return Me.eventAction
12668             End Get
12669         End Property
12670     End Class
12671     
12672     '''<summary>
12673     '''Row event argument class
12674     '''</summary>
12675     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12676     Public Class LogsRowChangeEvent
12677         Inherits Global.System.EventArgs
12678         
12679         Private eventRow As LogsRow
12680         
12681         Private eventAction As Global.System.Data.DataRowAction
12682         
12683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12685         Public Sub New(ByVal row As LogsRow, ByVal action As Global.System.Data.DataRowAction)
12686             MyBase.New
12687             Me.eventRow = row
12688             Me.eventAction = action
12689         End Sub
12690         
12691         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12692          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12693         Public ReadOnly Property Row() As LogsRow
12694             Get
12695                 Return Me.eventRow
12696             End Get
12697         End Property
12698         
12699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12701         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12702             Get
12703                 Return Me.eventAction
12704             End Get
12705         End Property
12706     End Class
12707     
12708     '''<summary>
12709     '''Row event argument class
12710     '''</summary>
12711     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12712     Public Class ProductRowChangeEvent
12713         Inherits Global.System.EventArgs
12714         
12715         Private eventRow As ProductRow
12716         
12717         Private eventAction As Global.System.Data.DataRowAction
12718         
12719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12721         Public Sub New(ByVal row As ProductRow, ByVal action As Global.System.Data.DataRowAction)
12722             MyBase.New
12723             Me.eventRow = row
12724             Me.eventAction = action
12725         End Sub
12726         
12727         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12728          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12729         Public ReadOnly Property Row() As ProductRow
12730             Get
12731                 Return Me.eventRow
12732             End Get
12733         End Property
12734         
12735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12737         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12738             Get
12739                 Return Me.eventAction
12740             End Get
12741         End Property
12742     End Class
12743     
12744     '''<summary>
12745     '''Row event argument class
12746     '''</summary>
12747     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12748     Public Class Product_JoinRowChangeEvent
12749         Inherits Global.System.EventArgs
12750         
12751         Private eventRow As Product_JoinRow
12752         
12753         Private eventAction As Global.System.Data.DataRowAction
12754         
12755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12757         Public Sub New(ByVal row As Product_JoinRow, ByVal action As Global.System.Data.DataRowAction)
12758             MyBase.New
12759             Me.eventRow = row
12760             Me.eventAction = action
12761         End Sub
12762         
12763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12765         Public ReadOnly Property Row() As Product_JoinRow
12766             Get
12767                 Return Me.eventRow
12768             End Get
12769         End Property
12770         
12771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12773         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12774             Get
12775                 Return Me.eventAction
12776             End Get
12777         End Property
12778     End Class
12779     
12780     '''<summary>
12781     '''Row event argument class
12782     '''</summary>
12783     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12784     Public Class QuotationRowChangeEvent
12785         Inherits Global.System.EventArgs
12786         
12787         Private eventRow As QuotationRow
12788         
12789         Private eventAction As Global.System.Data.DataRowAction
12790         
12791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12793         Public Sub New(ByVal row As QuotationRow, ByVal action As Global.System.Data.DataRowAction)
12794             MyBase.New
12795             Me.eventRow = row
12796             Me.eventAction = action
12797         End Sub
12798         
12799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12801         Public ReadOnly Property Row() As QuotationRow
12802             Get
12803                 Return Me.eventRow
12804             End Get
12805         End Property
12806         
12807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12809         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12810             Get
12811                 Return Me.eventAction
12812             End Get
12813         End Property
12814     End Class
12815     
12816     '''<summary>
12817     '''Row event argument class
12818     '''</summary>
12819     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12820     Public Class Quotation_JoinRowChangeEvent
12821         Inherits Global.System.EventArgs
12822         
12823         Private eventRow As Quotation_JoinRow
12824         
12825         Private eventAction As Global.System.Data.DataRowAction
12826         
12827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12829         Public Sub New(ByVal row As Quotation_JoinRow, ByVal action As Global.System.Data.DataRowAction)
12830             MyBase.New
12831             Me.eventRow = row
12832             Me.eventAction = action
12833         End Sub
12834         
12835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12837         Public ReadOnly Property Row() As Quotation_JoinRow
12838             Get
12839                 Return Me.eventRow
12840             End Get
12841         End Property
12842         
12843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12845         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12846             Get
12847                 Return Me.eventAction
12848             End Get
12849         End Property
12850     End Class
12851     
12852     '''<summary>
12853     '''Row event argument class
12854     '''</summary>
12855     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12856     Public Class RegistrationRowChangeEvent
12857         Inherits Global.System.EventArgs
12858         
12859         Private eventRow As RegistrationRow
12860         
12861         Private eventAction As Global.System.Data.DataRowAction
12862         
12863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12865         Public Sub New(ByVal row As RegistrationRow, ByVal action As Global.System.Data.DataRowAction)
12866             MyBase.New
12867             Me.eventRow = row
12868             Me.eventAction = action
12869         End Sub
12870         
12871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12873         Public ReadOnly Property Row() As RegistrationRow
12874             Get
12875                 Return Me.eventRow
12876             End Get
12877         End Property
12878         
12879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12881         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12882             Get
12883                 Return Me.eventAction
12884             End Get
12885         End Property
12886     End Class
12887     
12888     '''<summary>
12889     '''Row event argument class
12890     '''</summary>
12891     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12892     Public Class ServiceRowChangeEvent
12893         Inherits Global.System.EventArgs
12894         
12895         Private eventRow As ServiceRow
12896         
12897         Private eventAction As Global.System.Data.DataRowAction
12898         
12899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12901         Public Sub New(ByVal row As ServiceRow, ByVal action As Global.System.Data.DataRowAction)
12902             MyBase.New
12903             Me.eventRow = row
12904             Me.eventAction = action
12905         End Sub
12906         
12907         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12908          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12909         Public ReadOnly Property Row() As ServiceRow
12910             Get
12911                 Return Me.eventRow
12912             End Get
12913         End Property
12914         
12915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12917         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12918             Get
12919                 Return Me.eventAction
12920             End Get
12921         End Property
12922     End Class
12923     
12924     '''<summary>
12925     '''Row event argument class
12926     '''</summary>
12927     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12928     Public Class StockRowChangeEvent
12929         Inherits Global.System.EventArgs
12930         
12931         Private eventRow As StockRow
12932         
12933         Private eventAction As Global.System.Data.DataRowAction
12934         
12935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12937         Public Sub New(ByVal row As StockRow, ByVal action As Global.System.Data.DataRowAction)
12938             MyBase.New
12939             Me.eventRow = row
12940             Me.eventAction = action
12941         End Sub
12942         
12943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12945         Public ReadOnly Property Row() As StockRow
12946             Get
12947                 Return Me.eventRow
12948             End Get
12949         End Property
12950         
12951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12953         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12954             Get
12955                 Return Me.eventAction
12956             End Get
12957         End Property
12958     End Class
12959     
12960     '''<summary>
12961     '''Row event argument class
12962     '''</summary>
12963     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12964     Public Class Stock_ProductRowChangeEvent
12965         Inherits Global.System.EventArgs
12966         
12967         Private eventRow As Stock_ProductRow
12968         
12969         Private eventAction As Global.System.Data.DataRowAction
12970         
12971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12973         Public Sub New(ByVal row As Stock_ProductRow, ByVal action As Global.System.Data.DataRowAction)
12974             MyBase.New
12975             Me.eventRow = row
12976             Me.eventAction = action
12977         End Sub
12978         
12979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12981         Public ReadOnly Property Row() As Stock_ProductRow
12982             Get
12983                 Return Me.eventRow
12984             End Get
12985         End Property
12986         
12987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12989         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
12990             Get
12991                 Return Me.eventAction
12992             End Get
12993         End Property
12994     End Class
12995     
12996     '''<summary>
12997     '''Row event argument class
12998     '''</summary>
12999     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13000     Public Class SubCategoryRowChangeEvent
13001         Inherits Global.System.EventArgs
13002         
13003         Private eventRow As SubCategoryRow
13004         
13005         Private eventAction As Global.System.Data.DataRowAction
13006         
13007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13009         Public Sub New(ByVal row As SubCategoryRow, ByVal action As Global.System.Data.DataRowAction)
13010             MyBase.New
13011             Me.eventRow = row
13012             Me.eventAction = action
13013         End Sub
13014         
13015         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13016          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13017         Public ReadOnly Property Row() As SubCategoryRow
13018             Get
13019                 Return Me.eventRow
13020             End Get
13021         End Property
13022         
13023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13025         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
13026             Get
13027                 Return Me.eventAction
13028             End Get
13029         End Property
13030     End Class
13031     
13032     '''<summary>
13033     '''Row event argument class
13034     '''</summary>
13035     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13036     Public Class SupplierRowChangeEvent
13037         Inherits Global.System.EventArgs
13038         
13039         Private eventRow As SupplierRow
13040         
13041         Private eventAction As Global.System.Data.DataRowAction
13042         
13043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13045         Public Sub New(ByVal row As SupplierRow, ByVal action As Global.System.Data.DataRowAction)
13046             MyBase.New
13047             Me.eventRow = row
13048             Me.eventAction = action
13049         End Sub
13050         
13051         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13052          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13053         Public ReadOnly Property Row() As SupplierRow
13054             Get
13055                 Return Me.eventRow
13056             End Get
13057         End Property
13058         
13059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13061         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
13062             Get
13063                 Return Me.eventAction
13064             End Get
13065         End Property
13066     End Class
13067     
13068     '''<summary>
13069     '''Row event argument class
13070     '''</summary>
13071     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13072     Public Class Temp_StockRowChangeEvent
13073         Inherits Global.System.EventArgs
13074         
13075         Private eventRow As Temp_StockRow
13076         
13077         Private eventAction As Global.System.Data.DataRowAction
13078         
13079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13081         Public Sub New(ByVal row As Temp_StockRow, ByVal action As Global.System.Data.DataRowAction)
13082             MyBase.New
13083             Me.eventRow = row
13084             Me.eventAction = action
13085         End Sub
13086         
13087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13089         Public ReadOnly Property Row() As Temp_StockRow
13090             Get
13091                 Return Me.eventRow
13092             End Get
13093         End Property
13094         
13095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13097         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
13098             Get
13099                 Return Me.eventAction
13100             End Get
13101         End Property
13102     End Class
13103 End Class
13104
13105 Namespace SIS_DBDataSet1TableAdapters
13106     
13107     '''<summary>
13108     '''Represents the connection and commands used to retrieve and save data.
13109     '''</summary>
13110     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
13111      Global.System.ComponentModel.ToolboxItem(true), _
13112      Global.System.ComponentModel.DataObjectAttribute(true), _
13113      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
13114         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
13115      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13116     Partial Public Class ActivationTableAdapter
13117         Inherits Global.System.ComponentModel.Component
13118         
13119         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
13120         
13121         Private _connection As Global.System.Data.SqlClient.SqlConnection
13122         
13123         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
13124         
13125         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
13126         
13127         Private _clearBeforeFill As Boolean
13128         
13129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13131         Public Sub New()
13132             MyBase.New
13133             Me.ClearBeforeFill = true
13134         End Sub
13135         
13136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13138         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
13139             Get
13140                 If (Me._adapter Is Nothing) Then
13141                     Me.InitAdapter
13142                 End If
13143                 Return Me._adapter
13144             End Get
13145         End Property
13146         
13147         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13148          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13149         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
13150             Get
13151                 If (Me._connection Is Nothing) Then
13152                     Me.InitConnection
13153                 End If
13154                 Return Me._connection
13155             End Get
13156             Set
13157                 Me._connection = value
13158                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
13159                     Me.Adapter.InsertCommand.Connection = value
13160                 End If
13161                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
13162                     Me.Adapter.DeleteCommand.Connection = value
13163                 End If
13164                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
13165                     Me.Adapter.UpdateCommand.Connection = value
13166                 End If
13167                 Dim i As Integer = 0
13168                 Do While (i < Me.CommandCollection.Length)
13169                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
13170                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
13171                     End If
13172                     i = (i + 1)
13173                 Loop
13174             End Set
13175         End Property
13176         
13177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13179         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
13180             Get
13181                 Return Me._transaction
13182             End Get
13183             Set
13184                 Me._transaction = value
13185                 Dim i As Integer = 0
13186                 Do While (i < Me.CommandCollection.Length)
13187                     Me.CommandCollection(i).Transaction = Me._transaction
13188                     i = (i + 1)
13189                 Loop
13190                 If ((Not (Me.Adapter) Is Nothing) _
13191                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
13192                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
13193                 End If
13194                 If ((Not (Me.Adapter) Is Nothing) _
13195                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
13196                     Me.Adapter.InsertCommand.Transaction = Me._transaction
13197                 End If
13198                 If ((Not (Me.Adapter) Is Nothing) _
13199                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
13200                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
13201                 End If
13202             End Set
13203         End Property
13204         
13205         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13206          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13207         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
13208             Get
13209                 If (Me._commandCollection Is Nothing) Then
13210                     Me.InitCommandCollection
13211                 End If
13212                 Return Me._commandCollection
13213             End Get
13214         End Property
13215         
13216         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13217          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13218         Public Property ClearBeforeFill() As Boolean
13219             Get
13220                 Return Me._clearBeforeFill
13221             End Get
13222             Set
13223                 Me._clearBeforeFill = value
13224             End Set
13225         End Property
13226         
13227         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13228          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13229         Private Sub InitAdapter()
13230             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
13231             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
13232             tableMapping.SourceTable = "Table"
13233             tableMapping.DataSetTable = "Activation"
13234             tableMapping.ColumnMappings.Add("ID", "ID")
13235             tableMapping.ColumnMappings.Add("HardwareID", "HardwareID")
13236             tableMapping.ColumnMappings.Add("SerialNo", "SerialNo")
13237             tableMapping.ColumnMappings.Add("ActivationID", "ActivationID")
13238             Me._adapter.TableMappings.Add(tableMapping)
13239             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
13240             Me._adapter.DeleteCommand.Connection = Me.Connection
13241             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Activation] WHERE (([ID] = @Original_ID) AND ([HardwareID] = @"& _
13242                 "Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID] ="& _
13243                 " @Original_ActivationID))"
13244             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
13245             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13246             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13247             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13248             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13249             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
13250             Me._adapter.InsertCommand.Connection = Me.Connection
13251             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Activation] ([HardwareID], [SerialNo], [ActivationID]) VALUES "& _
13252                 "(@HardwareID, @SerialNo, @ActivationID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, HardwareID, SerialNo, Activ"& _
13253                 "ationID FROM Activation WHERE (ID = SCOPE_IDENTITY())"
13254             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
13255             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13256             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13257             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13258             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
13259             Me._adapter.UpdateCommand.Connection = Me.Connection
13260             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Activation] SET [HardwareID] = @HardwareID, [SerialNo] = @SerialNo,"& _
13261                 " [ActivationID] = @ActivationID WHERE (([ID] = @Original_ID) AND ([HardwareID] ="& _
13262                 " @Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID]"& _
13263                 " = @Original_ActivationID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, HardwareID, SerialNo, ActivationID FROM"& _
13264                 " Activation WHERE (ID = @ID)"
13265             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
13266             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13267             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13268             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13269             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13270             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13271             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13272             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13273             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13274         End Sub
13275         
13276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13278         Private Sub InitConnection()
13279             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
13280             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
13281         End Sub
13282         
13283         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13284          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13285         Private Sub InitCommandCollection()
13286             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
13287             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
13288             Me._commandCollection(0).Connection = Me.Connection
13289             Me._commandCollection(0).CommandText = "SELECT ID, HardwareID, SerialNo, ActivationID FROM dbo.Activation"
13290             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
13291         End Sub
13292         
13293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13295          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13296          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
13297         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.ActivationDataTable) As Integer
13298             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13299             If (Me.ClearBeforeFill = true) Then
13300                 dataTable.Clear
13301             End If
13302             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
13303             Return returnValue
13304         End Function
13305         
13306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13308          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13309          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
13310         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.ActivationDataTable
13311             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13312             Dim dataTable As SIS_DBDataSet1.ActivationDataTable = New SIS_DBDataSet1.ActivationDataTable()
13313             Me.Adapter.Fill(dataTable)
13314             Return dataTable
13315         End Function
13316         
13317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13319          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13320         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.ActivationDataTable) As Integer
13321             Return Me.Adapter.Update(dataTable)
13322         End Function
13323         
13324         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13325          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13326          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13327         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
13328             Return Me.Adapter.Update(dataSet, "Activation")
13329         End Function
13330         
13331         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13332          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13333          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13334         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
13335             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
13336         End Function
13337         
13338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13340          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13341         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
13342             Return Me.Adapter.Update(dataRows)
13343         End Function
13344         
13345         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13346          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13347          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13348          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
13349         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
13350             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
13351             If (Original_HardwareID Is Nothing) Then
13352                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
13353             Else
13354                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HardwareID,String)
13355             End If
13356             If (Original_SerialNo Is Nothing) Then
13357                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
13358             Else
13359                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SerialNo,String)
13360             End If
13361             If (Original_ActivationID Is Nothing) Then
13362                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
13363             Else
13364                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ActivationID,String)
13365             End If
13366             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
13367             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13368                         <> Global.System.Data.ConnectionState.Open) Then
13369                 Me.Adapter.DeleteCommand.Connection.Open
13370             End If
13371             Try
13372                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
13373                 Return returnValue
13374             Finally
13375                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13376                     Me.Adapter.DeleteCommand.Connection.Close
13377                 End If
13378             End Try
13379         End Function
13380         
13381         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13382          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13383          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13384          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
13385         Public Overloads Overridable Function Insert(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As Integer
13386             If (HardwareID Is Nothing) Then
13387                 Throw New Global.System.ArgumentNullException("HardwareID")
13388             Else
13389                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(HardwareID,String)
13390             End If
13391             If (SerialNo Is Nothing) Then
13392                 Throw New Global.System.ArgumentNullException("SerialNo")
13393             Else
13394                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SerialNo,String)
13395             End If
13396             If (ActivationID Is Nothing) Then
13397                 Throw New Global.System.ArgumentNullException("ActivationID")
13398             Else
13399                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ActivationID,String)
13400             End If
13401             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
13402             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13403                         <> Global.System.Data.ConnectionState.Open) Then
13404                 Me.Adapter.InsertCommand.Connection.Open
13405             End If
13406             Try
13407                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
13408                 Return returnValue
13409             Finally
13410                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13411                     Me.Adapter.InsertCommand.Connection.Close
13412                 End If
13413             End Try
13414         End Function
13415         
13416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13418          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13419          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13420         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String, ByVal ID As Integer) As Integer
13421             If (HardwareID Is Nothing) Then
13422                 Throw New Global.System.ArgumentNullException("HardwareID")
13423             Else
13424                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HardwareID,String)
13425             End If
13426             If (SerialNo Is Nothing) Then
13427                 Throw New Global.System.ArgumentNullException("SerialNo")
13428             Else
13429                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SerialNo,String)
13430             End If
13431             If (ActivationID Is Nothing) Then
13432                 Throw New Global.System.ArgumentNullException("ActivationID")
13433             Else
13434                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ActivationID,String)
13435             End If
13436             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
13437             If (Original_HardwareID Is Nothing) Then
13438                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
13439             Else
13440                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_HardwareID,String)
13441             End If
13442             If (Original_SerialNo Is Nothing) Then
13443                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
13444             Else
13445                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SerialNo,String)
13446             End If
13447             If (Original_ActivationID Is Nothing) Then
13448                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
13449             Else
13450                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ActivationID,String)
13451             End If
13452             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ID,Integer)
13453             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
13454             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13455                         <> Global.System.Data.ConnectionState.Open) Then
13456                 Me.Adapter.UpdateCommand.Connection.Open
13457             End If
13458             Try
13459                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
13460                 Return returnValue
13461             Finally
13462                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13463                     Me.Adapter.UpdateCommand.Connection.Close
13464                 End If
13465             End Try
13466         End Function
13467         
13468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13470          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13471          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13472         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
13473             Return Me.Update(HardwareID, SerialNo, ActivationID, Original_ID, Original_HardwareID, Original_SerialNo, Original_ActivationID, Original_ID)
13474         End Function
13475     End Class
13476     
13477     '''<summary>
13478     '''Represents the connection and commands used to retrieve and save data.
13479     '''</summary>
13480     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
13481      Global.System.ComponentModel.ToolboxItem(true), _
13482      Global.System.ComponentModel.DataObjectAttribute(true), _
13483      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
13484         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
13485      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13486     Partial Public Class CategoryTableAdapter
13487         Inherits Global.System.ComponentModel.Component
13488         
13489         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
13490         
13491         Private _connection As Global.System.Data.SqlClient.SqlConnection
13492         
13493         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
13494         
13495         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
13496         
13497         Private _clearBeforeFill As Boolean
13498         
13499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13501         Public Sub New()
13502             MyBase.New
13503             Me.ClearBeforeFill = true
13504         End Sub
13505         
13506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13508         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
13509             Get
13510                 If (Me._adapter Is Nothing) Then
13511                     Me.InitAdapter
13512                 End If
13513                 Return Me._adapter
13514             End Get
13515         End Property
13516         
13517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13519         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
13520             Get
13521                 If (Me._connection Is Nothing) Then
13522                     Me.InitConnection
13523                 End If
13524                 Return Me._connection
13525             End Get
13526             Set
13527                 Me._connection = value
13528                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
13529                     Me.Adapter.InsertCommand.Connection = value
13530                 End If
13531                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
13532                     Me.Adapter.DeleteCommand.Connection = value
13533                 End If
13534                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
13535                     Me.Adapter.UpdateCommand.Connection = value
13536                 End If
13537                 Dim i As Integer = 0
13538                 Do While (i < Me.CommandCollection.Length)
13539                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
13540                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
13541                     End If
13542                     i = (i + 1)
13543                 Loop
13544             End Set
13545         End Property
13546         
13547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13549         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
13550             Get
13551                 Return Me._transaction
13552             End Get
13553             Set
13554                 Me._transaction = value
13555                 Dim i As Integer = 0
13556                 Do While (i < Me.CommandCollection.Length)
13557                     Me.CommandCollection(i).Transaction = Me._transaction
13558                     i = (i + 1)
13559                 Loop
13560                 If ((Not (Me.Adapter) Is Nothing) _
13561                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
13562                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
13563                 End If
13564                 If ((Not (Me.Adapter) Is Nothing) _
13565                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
13566                     Me.Adapter.InsertCommand.Transaction = Me._transaction
13567                 End If
13568                 If ((Not (Me.Adapter) Is Nothing) _
13569                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
13570                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
13571                 End If
13572             End Set
13573         End Property
13574         
13575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13577         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
13578             Get
13579                 If (Me._commandCollection Is Nothing) Then
13580                     Me.InitCommandCollection
13581                 End If
13582                 Return Me._commandCollection
13583             End Get
13584         End Property
13585         
13586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13588         Public Property ClearBeforeFill() As Boolean
13589             Get
13590                 Return Me._clearBeforeFill
13591             End Get
13592             Set
13593                 Me._clearBeforeFill = value
13594             End Set
13595         End Property
13596         
13597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13599         Private Sub InitAdapter()
13600             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
13601             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
13602             tableMapping.SourceTable = "Table"
13603             tableMapping.DataSetTable = "Category"
13604             tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
13605             Me._adapter.TableMappings.Add(tableMapping)
13606             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
13607             Me._adapter.DeleteCommand.Connection = Me.Connection
13608             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Category] WHERE (([CategoryName] = @Original_CategoryName))"
13609             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
13610             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13611             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
13612             Me._adapter.InsertCommand.Connection = Me.Connection
13613             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Category] ([CategoryName]) VALUES (@CategoryName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Cat"& _
13614                 "egoryName FROM Category WHERE (CategoryName = @CategoryName)"
13615             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
13616             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13617             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
13618             Me._adapter.UpdateCommand.Connection = Me.Connection
13619             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Category] SET [CategoryName] = @CategoryName WHERE (([CategoryName]"& _
13620                 " = @Original_CategoryName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CategoryName FROM Category WHERE (CategoryN"& _
13621                 "ame = @CategoryName)"
13622             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
13623             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13624             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13625         End Sub
13626         
13627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13629         Private Sub InitConnection()
13630             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
13631             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
13632         End Sub
13633         
13634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13636         Private Sub InitCommandCollection()
13637             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
13638             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
13639             Me._commandCollection(0).Connection = Me.Connection
13640             Me._commandCollection(0).CommandText = "SELECT CategoryName FROM dbo.Category"
13641             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
13642         End Sub
13643         
13644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13646          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13647          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
13648         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.CategoryDataTable) As Integer
13649             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13650             If (Me.ClearBeforeFill = true) Then
13651                 dataTable.Clear
13652             End If
13653             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
13654             Return returnValue
13655         End Function
13656         
13657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13659          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13660          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
13661         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.CategoryDataTable
13662             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13663             Dim dataTable As SIS_DBDataSet1.CategoryDataTable = New SIS_DBDataSet1.CategoryDataTable()
13664             Me.Adapter.Fill(dataTable)
13665             Return dataTable
13666         End Function
13667         
13668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13670          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13671         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.CategoryDataTable) As Integer
13672             Return Me.Adapter.Update(dataTable)
13673         End Function
13674         
13675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13677          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13678         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
13679             Return Me.Adapter.Update(dataSet, "Category")
13680         End Function
13681         
13682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13684          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13685         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
13686             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
13687         End Function
13688         
13689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13691          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13692         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
13693             Return Me.Adapter.Update(dataRows)
13694         End Function
13695         
13696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13698          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13699          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
13700         Public Overloads Overridable Function Delete(ByVal Original_CategoryName As String) As Integer
13701             If (Original_CategoryName Is Nothing) Then
13702                 Throw New Global.System.ArgumentNullException("Original_CategoryName")
13703             Else
13704                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CategoryName,String)
13705             End If
13706             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
13707             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13708                         <> Global.System.Data.ConnectionState.Open) Then
13709                 Me.Adapter.DeleteCommand.Connection.Open
13710             End If
13711             Try
13712                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
13713                 Return returnValue
13714             Finally
13715                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13716                     Me.Adapter.DeleteCommand.Connection.Close
13717                 End If
13718             End Try
13719         End Function
13720         
13721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13723          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13724          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
13725         Public Overloads Overridable Function Insert(ByVal CategoryName As String) As Integer
13726             If (CategoryName Is Nothing) Then
13727                 Throw New Global.System.ArgumentNullException("CategoryName")
13728             Else
13729                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CategoryName,String)
13730             End If
13731             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
13732             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13733                         <> Global.System.Data.ConnectionState.Open) Then
13734                 Me.Adapter.InsertCommand.Connection.Open
13735             End If
13736             Try
13737                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
13738                 Return returnValue
13739             Finally
13740                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13741                     Me.Adapter.InsertCommand.Connection.Close
13742                 End If
13743             End Try
13744         End Function
13745         
13746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13748          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13749          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13750         Public Overloads Overridable Function Update(ByVal CategoryName As String, ByVal Original_CategoryName As String) As Integer
13751             If (CategoryName Is Nothing) Then
13752                 Throw New Global.System.ArgumentNullException("CategoryName")
13753             Else
13754                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CategoryName,String)
13755             End If
13756             If (Original_CategoryName Is Nothing) Then
13757                 Throw New Global.System.ArgumentNullException("Original_CategoryName")
13758             Else
13759                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_CategoryName,String)
13760             End If
13761             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
13762             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13763                         <> Global.System.Data.ConnectionState.Open) Then
13764                 Me.Adapter.UpdateCommand.Connection.Open
13765             End If
13766             Try
13767                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
13768                 Return returnValue
13769             Finally
13770                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13771                     Me.Adapter.UpdateCommand.Connection.Close
13772                 End If
13773             End Try
13774         End Function
13775         
13776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13778          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13779          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13780         Public Overloads Overridable Function Update(ByVal Original_CategoryName As String) As Integer
13781             Return Me.Update(Original_CategoryName, Original_CategoryName)
13782         End Function
13783     End Class
13784     
13785     '''<summary>
13786     '''Represents the connection and commands used to retrieve and save data.
13787     '''</summary>
13788     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
13789      Global.System.ComponentModel.ToolboxItem(true), _
13790      Global.System.ComponentModel.DataObjectAttribute(true), _
13791      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
13792         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
13793      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13794     Partial Public Class CompanyTableAdapter
13795         Inherits Global.System.ComponentModel.Component
13796         
13797         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
13798         
13799         Private _connection As Global.System.Data.SqlClient.SqlConnection
13800         
13801         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
13802         
13803         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
13804         
13805         Private _clearBeforeFill As Boolean
13806         
13807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13809         Public Sub New()
13810             MyBase.New
13811             Me.ClearBeforeFill = true
13812         End Sub
13813         
13814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13816         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
13817             Get
13818                 If (Me._adapter Is Nothing) Then
13819                     Me.InitAdapter
13820                 End If
13821                 Return Me._adapter
13822             End Get
13823         End Property
13824         
13825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13827         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
13828             Get
13829                 If (Me._connection Is Nothing) Then
13830                     Me.InitConnection
13831                 End If
13832                 Return Me._connection
13833             End Get
13834             Set
13835                 Me._connection = value
13836                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
13837                     Me.Adapter.InsertCommand.Connection = value
13838                 End If
13839                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
13840                     Me.Adapter.DeleteCommand.Connection = value
13841                 End If
13842                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
13843                     Me.Adapter.UpdateCommand.Connection = value
13844                 End If
13845                 Dim i As Integer = 0
13846                 Do While (i < Me.CommandCollection.Length)
13847                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
13848                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
13849                     End If
13850                     i = (i + 1)
13851                 Loop
13852             End Set
13853         End Property
13854         
13855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13857         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
13858             Get
13859                 Return Me._transaction
13860             End Get
13861             Set
13862                 Me._transaction = value
13863                 Dim i As Integer = 0
13864                 Do While (i < Me.CommandCollection.Length)
13865                     Me.CommandCollection(i).Transaction = Me._transaction
13866                     i = (i + 1)
13867                 Loop
13868                 If ((Not (Me.Adapter) Is Nothing) _
13869                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
13870                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
13871                 End If
13872                 If ((Not (Me.Adapter) Is Nothing) _
13873                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
13874                     Me.Adapter.InsertCommand.Transaction = Me._transaction
13875                 End If
13876                 If ((Not (Me.Adapter) Is Nothing) _
13877                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
13878                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
13879                 End If
13880             End Set
13881         End Property
13882         
13883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13885         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
13886             Get
13887                 If (Me._commandCollection Is Nothing) Then
13888                     Me.InitCommandCollection
13889                 End If
13890                 Return Me._commandCollection
13891             End Get
13892         End Property
13893         
13894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13896         Public Property ClearBeforeFill() As Boolean
13897             Get
13898                 Return Me._clearBeforeFill
13899             End Get
13900             Set
13901                 Me._clearBeforeFill = value
13902             End Set
13903         End Property
13904         
13905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13907         Private Sub InitAdapter()
13908             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
13909             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
13910             tableMapping.SourceTable = "Table"
13911             tableMapping.DataSetTable = "Company"
13912             tableMapping.ColumnMappings.Add("ID", "ID")
13913             tableMapping.ColumnMappings.Add("CompanyName", "CompanyName")
13914             tableMapping.ColumnMappings.Add("Address", "Address")
13915             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
13916             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
13917             tableMapping.ColumnMappings.Add("Logo", "Logo")
13918             tableMapping.ColumnMappings.Add("TIN", "TIN")
13919             tableMapping.ColumnMappings.Add("STNo", "STNo")
13920             tableMapping.ColumnMappings.Add("CIN", "CIN")
13921             Me._adapter.TableMappings.Add(tableMapping)
13922             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
13923             Me._adapter.DeleteCommand.Connection = Me.Connection
13924             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Company] WHERE (([ID] = @Original_ID) AND ([CompanyName] = @Or"& _
13925                 "iginal_CompanyName) AND ([Address] = @Original_Address) AND ([ContactNo] = @Orig"& _
13926                 "inal_ContactNo) AND ([EmailID] = @Original_EmailID) AND ((@IsNull_TIN = 1 AND [T"& _
13927                 "IN] IS NULL) OR ([TIN] = @Original_TIN)) AND ((@IsNull_STNo = 1 AND [STNo] IS NU"& _
13928                 "LL) OR ([STNo] = @Original_STNo)) AND ((@IsNull_CIN = 1 AND [CIN] IS NULL) OR (["& _
13929                 "CIN] = @Original_CIN)))"
13930             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
13931             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13932             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13933             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13934             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13935             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13936             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
13937             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13938             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
13939             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13940             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
13941             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13942             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
13943             Me._adapter.InsertCommand.Connection = Me.Connection
13944             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Company] ([CompanyName], [Address], [ContactNo], [EmailID], [L"& _
13945                 "ogo], [TIN], [STNo], [CIN]) VALUES (@CompanyName, @Address, @ContactNo, @EmailID"& _
13946                 ", @Logo, @TIN, @STNo, @CIN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CompanyName, Address, ContactNo, EmailI"& _
13947                 "D, Logo, TIN, STNo, CIN FROM Company WHERE (ID = SCOPE_IDENTITY())"
13948             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
13949             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13950             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13951             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13952             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13953             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13954             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13955             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13956             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13957             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
13958             Me._adapter.UpdateCommand.Connection = Me.Connection
13959             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Company] SET [CompanyName] = @CompanyName, [Address] = @Address, [C"& _
13960                 "ontactNo] = @ContactNo, [EmailID] = @EmailID, [Logo] = @Logo, [TIN] = @TIN, [STN"& _
13961                 "o] = @STNo, [CIN] = @CIN WHERE (([ID] = @Original_ID) AND ([CompanyName] = @Orig"& _
13962                 "inal_CompanyName) AND ([Address] = @Original_Address) AND ([ContactNo] = @Origin"& _
13963                 "al_ContactNo) AND ([EmailID] = @Original_EmailID) AND ((@IsNull_TIN = 1 AND [TIN"& _
13964                 "] IS NULL) OR ([TIN] = @Original_TIN)) AND ((@IsNull_STNo = 1 AND [STNo] IS NULL"& _
13965                 ") OR ([STNo] = @Original_STNo)) AND ((@IsNull_CIN = 1 AND [CIN] IS NULL) OR ([CI"& _
13966                 "N] = @Original_CIN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CompanyName, Address, ContactNo, EmailID, Log"& _
13967                 "o, TIN, STNo, CIN FROM Company WHERE (ID = @ID)"
13968             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
13969             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13970             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13971             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13972             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13973             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13974             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13975             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13976             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13977             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13978             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13979             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13980             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13981             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13982             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
13983             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13984             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
13985             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13986             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
13987             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13988             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13989         End Sub
13990         
13991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13993         Private Sub InitConnection()
13994             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
13995             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
13996         End Sub
13997         
13998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14000         Private Sub InitCommandCollection()
14001             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
14002             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
14003             Me._commandCollection(0).Connection = Me.Connection
14004             Me._commandCollection(0).CommandText = "SELECT ID, CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN FROM db"& _
14005                 "o.Company"
14006             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
14007         End Sub
14008         
14009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14011          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14012          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
14013         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.CompanyDataTable) As Integer
14014             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14015             If (Me.ClearBeforeFill = true) Then
14016                 dataTable.Clear
14017             End If
14018             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
14019             Return returnValue
14020         End Function
14021         
14022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14024          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14025          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
14026         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.CompanyDataTable
14027             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14028             Dim dataTable As SIS_DBDataSet1.CompanyDataTable = New SIS_DBDataSet1.CompanyDataTable()
14029             Me.Adapter.Fill(dataTable)
14030             Return dataTable
14031         End Function
14032         
14033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14035          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14036         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.CompanyDataTable) As Integer
14037             Return Me.Adapter.Update(dataTable)
14038         End Function
14039         
14040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14042          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14043         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
14044             Return Me.Adapter.Update(dataSet, "Company")
14045         End Function
14046         
14047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14049          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14050         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
14051             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
14052         End Function
14053         
14054         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14055          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14056          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14057         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
14058             Return Me.Adapter.Update(dataRows)
14059         End Function
14060         
14061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14063          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14064          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
14065         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_CompanyName As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_TIN As String, ByVal Original_STNo As String, ByVal Original_CIN As String) As Integer
14066             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
14067             If (Original_CompanyName Is Nothing) Then
14068                 Throw New Global.System.ArgumentNullException("Original_CompanyName")
14069             Else
14070                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CompanyName,String)
14071             End If
14072             If (Original_Address Is Nothing) Then
14073                 Throw New Global.System.ArgumentNullException("Original_Address")
14074             Else
14075                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Address,String)
14076             End If
14077             If (Original_ContactNo Is Nothing) Then
14078                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
14079             Else
14080                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ContactNo,String)
14081             End If
14082             If (Original_EmailID Is Nothing) Then
14083                 Throw New Global.System.ArgumentNullException("Original_EmailID")
14084             Else
14085                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_EmailID,String)
14086             End If
14087             If (Original_TIN Is Nothing) Then
14088                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
14089                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
14090             Else
14091                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
14092                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TIN,String)
14093             End If
14094             If (Original_STNo Is Nothing) Then
14095                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
14096                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
14097             Else
14098                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
14099                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_STNo,String)
14100             End If
14101             If (Original_CIN Is Nothing) Then
14102                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
14103                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
14104             Else
14105                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
14106                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CIN,String)
14107             End If
14108             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
14109             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14110                         <> Global.System.Data.ConnectionState.Open) Then
14111                 Me.Adapter.DeleteCommand.Connection.Open
14112             End If
14113             Try
14114                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
14115                 Return returnValue
14116             Finally
14117                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14118                     Me.Adapter.DeleteCommand.Connection.Close
14119                 End If
14120             End Try
14121         End Function
14122         
14123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14125          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14126          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
14127         Public Overloads Overridable Function Insert(ByVal CompanyName As String, ByVal Address As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Logo() As Byte, ByVal TIN As String, ByVal STNo As String, ByVal CIN As String) As Integer
14128             If (CompanyName Is Nothing) Then
14129                 Throw New Global.System.ArgumentNullException("CompanyName")
14130             Else
14131                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CompanyName,String)
14132             End If
14133             If (Address Is Nothing) Then
14134                 Throw New Global.System.ArgumentNullException("Address")
14135             Else
14136                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Address,String)
14137             End If
14138             If (ContactNo Is Nothing) Then
14139                 Throw New Global.System.ArgumentNullException("ContactNo")
14140             Else
14141                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ContactNo,String)
14142             End If
14143             If (EmailID Is Nothing) Then
14144                 Throw New Global.System.ArgumentNullException("EmailID")
14145             Else
14146                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(EmailID,String)
14147             End If
14148             If (Logo Is Nothing) Then
14149                 Throw New Global.System.ArgumentNullException("Logo")
14150             Else
14151                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Logo,Byte())
14152             End If
14153             If (TIN Is Nothing) Then
14154                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
14155             Else
14156                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(TIN,String)
14157             End If
14158             If (STNo Is Nothing) Then
14159                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
14160             Else
14161                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(STNo,String)
14162             End If
14163             If (CIN Is Nothing) Then
14164                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
14165             Else
14166                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(CIN,String)
14167             End If
14168             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
14169             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14170                         <> Global.System.Data.ConnectionState.Open) Then
14171                 Me.Adapter.InsertCommand.Connection.Open
14172             End If
14173             Try
14174                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
14175                 Return returnValue
14176             Finally
14177                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14178                     Me.Adapter.InsertCommand.Connection.Close
14179                 End If
14180             End Try
14181         End Function
14182         
14183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14185          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14186          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14187         Public Overloads Overridable Function Update( _
14188                     ByVal CompanyName As String, _
14189                     ByVal Address As String, _
14190                     ByVal ContactNo As String, _
14191                     ByVal EmailID As String, _
14192                     ByVal Logo() As Byte, _
14193                     ByVal TIN As String, _
14194                     ByVal STNo As String, _
14195                     ByVal CIN As String, _
14196                     ByVal Original_ID As Integer, _
14197                     ByVal Original_CompanyName As String, _
14198                     ByVal Original_Address As String, _
14199                     ByVal Original_ContactNo As String, _
14200                     ByVal Original_EmailID As String, _
14201                     ByVal Original_TIN As String, _
14202                     ByVal Original_STNo As String, _
14203                     ByVal Original_CIN As String, _
14204                     ByVal ID As Integer) As Integer
14205             If (CompanyName Is Nothing) Then
14206                 Throw New Global.System.ArgumentNullException("CompanyName")
14207             Else
14208                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CompanyName,String)
14209             End If
14210             If (Address Is Nothing) Then
14211                 Throw New Global.System.ArgumentNullException("Address")
14212             Else
14213                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Address,String)
14214             End If
14215             If (ContactNo Is Nothing) Then
14216                 Throw New Global.System.ArgumentNullException("ContactNo")
14217             Else
14218                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ContactNo,String)
14219             End If
14220             If (EmailID Is Nothing) Then
14221                 Throw New Global.System.ArgumentNullException("EmailID")
14222             Else
14223                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EmailID,String)
14224             End If
14225             If (Logo Is Nothing) Then
14226                 Throw New Global.System.ArgumentNullException("Logo")
14227             Else
14228                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Logo,Byte())
14229             End If
14230             If (TIN Is Nothing) Then
14231                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
14232             Else
14233                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TIN,String)
14234             End If
14235             If (STNo Is Nothing) Then
14236                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
14237             Else
14238                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STNo,String)
14239             End If
14240             If (CIN Is Nothing) Then
14241                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
14242             Else
14243                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CIN,String)
14244             End If
14245             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ID,Integer)
14246             If (Original_CompanyName Is Nothing) Then
14247                 Throw New Global.System.ArgumentNullException("Original_CompanyName")
14248             Else
14249                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CompanyName,String)
14250             End If
14251             If (Original_Address Is Nothing) Then
14252                 Throw New Global.System.ArgumentNullException("Original_Address")
14253             Else
14254                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Address,String)
14255             End If
14256             If (Original_ContactNo Is Nothing) Then
14257                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
14258             Else
14259                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
14260             End If
14261             If (Original_EmailID Is Nothing) Then
14262                 Throw New Global.System.ArgumentNullException("Original_EmailID")
14263             Else
14264                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_EmailID,String)
14265             End If
14266             If (Original_TIN Is Nothing) Then
14267                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
14268                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
14269             Else
14270                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
14271                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TIN,String)
14272             End If
14273             If (Original_STNo Is Nothing) Then
14274                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
14275                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
14276             Else
14277                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
14278                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_STNo,String)
14279             End If
14280             If (Original_CIN Is Nothing) Then
14281                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
14282                 Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
14283             Else
14284                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
14285                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CIN,String)
14286             End If
14287             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ID,Integer)
14288             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
14289             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14290                         <> Global.System.Data.ConnectionState.Open) Then
14291                 Me.Adapter.UpdateCommand.Connection.Open
14292             End If
14293             Try
14294                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
14295                 Return returnValue
14296             Finally
14297                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14298                     Me.Adapter.UpdateCommand.Connection.Close
14299                 End If
14300             End Try
14301         End Function
14302         
14303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14305          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14306          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14307         Public Overloads Overridable Function Update( _
14308                     ByVal CompanyName As String, _
14309                     ByVal Address As String, _
14310                     ByVal ContactNo As String, _
14311                     ByVal EmailID As String, _
14312                     ByVal Logo() As Byte, _
14313                     ByVal TIN As String, _
14314                     ByVal STNo As String, _
14315                     ByVal CIN As String, _
14316                     ByVal Original_ID As Integer, _
14317                     ByVal Original_CompanyName As String, _
14318                     ByVal Original_Address As String, _
14319                     ByVal Original_ContactNo As String, _
14320                     ByVal Original_EmailID As String, _
14321                     ByVal Original_TIN As String, _
14322                     ByVal Original_STNo As String, _
14323                     ByVal Original_CIN As String) As Integer
14324             Return Me.Update(CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN, Original_ID, Original_CompanyName, Original_Address, Original_ContactNo, Original_EmailID, Original_TIN, Original_STNo, Original_CIN, Original_ID)
14325         End Function
14326     End Class
14327     
14328     '''<summary>
14329     '''Represents the connection and commands used to retrieve and save data.
14330     '''</summary>
14331     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
14332      Global.System.ComponentModel.ToolboxItem(true), _
14333      Global.System.ComponentModel.DataObjectAttribute(true), _
14334      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
14335         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
14336      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14337     Partial Public Class Company_ContactsTableAdapter
14338         Inherits Global.System.ComponentModel.Component
14339         
14340         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
14341         
14342         Private _connection As Global.System.Data.SqlClient.SqlConnection
14343         
14344         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
14345         
14346         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
14347         
14348         Private _clearBeforeFill As Boolean
14349         
14350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14352         Public Sub New()
14353             MyBase.New
14354             Me.ClearBeforeFill = true
14355         End Sub
14356         
14357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14359         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
14360             Get
14361                 If (Me._adapter Is Nothing) Then
14362                     Me.InitAdapter
14363                 End If
14364                 Return Me._adapter
14365             End Get
14366         End Property
14367         
14368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14370         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
14371             Get
14372                 If (Me._connection Is Nothing) Then
14373                     Me.InitConnection
14374                 End If
14375                 Return Me._connection
14376             End Get
14377             Set
14378                 Me._connection = value
14379                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
14380                     Me.Adapter.InsertCommand.Connection = value
14381                 End If
14382                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
14383                     Me.Adapter.DeleteCommand.Connection = value
14384                 End If
14385                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
14386                     Me.Adapter.UpdateCommand.Connection = value
14387                 End If
14388                 Dim i As Integer = 0
14389                 Do While (i < Me.CommandCollection.Length)
14390                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
14391                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
14392                     End If
14393                     i = (i + 1)
14394                 Loop
14395             End Set
14396         End Property
14397         
14398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14400         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
14401             Get
14402                 Return Me._transaction
14403             End Get
14404             Set
14405                 Me._transaction = value
14406                 Dim i As Integer = 0
14407                 Do While (i < Me.CommandCollection.Length)
14408                     Me.CommandCollection(i).Transaction = Me._transaction
14409                     i = (i + 1)
14410                 Loop
14411                 If ((Not (Me.Adapter) Is Nothing) _
14412                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
14413                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
14414                 End If
14415                 If ((Not (Me.Adapter) Is Nothing) _
14416                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
14417                     Me.Adapter.InsertCommand.Transaction = Me._transaction
14418                 End If
14419                 If ((Not (Me.Adapter) Is Nothing) _
14420                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
14421                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
14422                 End If
14423             End Set
14424         End Property
14425         
14426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14428         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
14429             Get
14430                 If (Me._commandCollection Is Nothing) Then
14431                     Me.InitCommandCollection
14432                 End If
14433                 Return Me._commandCollection
14434             End Get
14435         End Property
14436         
14437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14439         Public Property ClearBeforeFill() As Boolean
14440             Get
14441                 Return Me._clearBeforeFill
14442             End Get
14443             Set
14444                 Me._clearBeforeFill = value
14445             End Set
14446         End Property
14447         
14448         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14449          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14450         Private Sub InitAdapter()
14451             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
14452             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
14453             tableMapping.SourceTable = "Table"
14454             tableMapping.DataSetTable = "Company_Contacts"
14455             tableMapping.ColumnMappings.Add("Id", "Id")
14456             tableMapping.ColumnMappings.Add("ContactPerson", "ContactPerson")
14457             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
14458             Me._adapter.TableMappings.Add(tableMapping)
14459             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
14460             Me._adapter.DeleteCommand.Connection = Me.Connection
14461             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Company_Contacts] WHERE (([Id] = @Original_Id) AND ([ContactPe"& _
14462                 "rson] = @Original_ContactPerson) AND ([ContactNo] = @Original_ContactNo))"
14463             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
14464             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14465             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14466             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14467             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
14468             Me._adapter.InsertCommand.Connection = Me.Connection
14469             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Company_Contacts] ([ContactPerson], [ContactNo]) VALUES (@Cont"& _
14470                 "actPerson, @ContactNo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ContactPerson, ContactNo FROM Company_Contac"& _
14471                 "ts WHERE (Id = SCOPE_IDENTITY())"
14472             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
14473             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14474             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14475             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
14476             Me._adapter.UpdateCommand.Connection = Me.Connection
14477             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Company_Contacts] SET [ContactPerson] = @ContactPerson, [ContactNo]"& _
14478                 " = @ContactNo WHERE (([Id] = @Original_Id) AND ([ContactPerson] = @Original_Cont"& _
14479                 "actPerson) AND ([ContactNo] = @Original_ContactNo));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ContactPerson, "& _
14480                 "ContactNo FROM Company_Contacts WHERE (Id = @Id)"
14481             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
14482             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14483             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14484             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14485             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14486             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14487             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14488         End Sub
14489         
14490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14492         Private Sub InitConnection()
14493             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
14494             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
14495         End Sub
14496         
14497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14499         Private Sub InitCommandCollection()
14500             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
14501             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
14502             Me._commandCollection(0).Connection = Me.Connection
14503             Me._commandCollection(0).CommandText = "SELECT Id, ContactPerson, ContactNo FROM dbo.Company_Contacts"
14504             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
14505         End Sub
14506         
14507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14509          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14510          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
14511         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Company_ContactsDataTable) As Integer
14512             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14513             If (Me.ClearBeforeFill = true) Then
14514                 dataTable.Clear
14515             End If
14516             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
14517             Return returnValue
14518         End Function
14519         
14520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14522          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14523          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
14524         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Company_ContactsDataTable
14525             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14526             Dim dataTable As SIS_DBDataSet1.Company_ContactsDataTable = New SIS_DBDataSet1.Company_ContactsDataTable()
14527             Me.Adapter.Fill(dataTable)
14528             Return dataTable
14529         End Function
14530         
14531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14533          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14534         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Company_ContactsDataTable) As Integer
14535             Return Me.Adapter.Update(dataTable)
14536         End Function
14537         
14538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14540          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14541         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
14542             Return Me.Adapter.Update(dataSet, "Company_Contacts")
14543         End Function
14544         
14545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14547          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14548         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
14549             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
14550         End Function
14551         
14552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14554          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14555         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
14556             Return Me.Adapter.Update(dataRows)
14557         End Function
14558         
14559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14561          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14562          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
14563         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String) As Integer
14564             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
14565             If (Original_ContactPerson Is Nothing) Then
14566                 Throw New Global.System.ArgumentNullException("Original_ContactPerson")
14567             Else
14568                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ContactPerson,String)
14569             End If
14570             If (Original_ContactNo Is Nothing) Then
14571                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
14572             Else
14573                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ContactNo,String)
14574             End If
14575             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
14576             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14577                         <> Global.System.Data.ConnectionState.Open) Then
14578                 Me.Adapter.DeleteCommand.Connection.Open
14579             End If
14580             Try
14581                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
14582                 Return returnValue
14583             Finally
14584                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14585                     Me.Adapter.DeleteCommand.Connection.Close
14586                 End If
14587             End Try
14588         End Function
14589         
14590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14592          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14593          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
14594         Public Overloads Overridable Function Insert(ByVal ContactPerson As String, ByVal ContactNo As String) As Integer
14595             If (ContactPerson Is Nothing) Then
14596                 Throw New Global.System.ArgumentNullException("ContactPerson")
14597             Else
14598                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(ContactPerson,String)
14599             End If
14600             If (ContactNo Is Nothing) Then
14601                 Throw New Global.System.ArgumentNullException("ContactNo")
14602             Else
14603                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ContactNo,String)
14604             End If
14605             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
14606             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14607                         <> Global.System.Data.ConnectionState.Open) Then
14608                 Me.Adapter.InsertCommand.Connection.Open
14609             End If
14610             Try
14611                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
14612                 Return returnValue
14613             Finally
14614                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14615                     Me.Adapter.InsertCommand.Connection.Close
14616                 End If
14617             End Try
14618         End Function
14619         
14620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14622          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14623          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14624         Public Overloads Overridable Function Update(ByVal ContactPerson As String, ByVal ContactNo As String, ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String, ByVal Id As Integer) As Integer
14625             If (ContactPerson Is Nothing) Then
14626                 Throw New Global.System.ArgumentNullException("ContactPerson")
14627             Else
14628                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ContactPerson,String)
14629             End If
14630             If (ContactNo Is Nothing) Then
14631                 Throw New Global.System.ArgumentNullException("ContactNo")
14632             Else
14633                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ContactNo,String)
14634             End If
14635             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
14636             If (Original_ContactPerson Is Nothing) Then
14637                 Throw New Global.System.ArgumentNullException("Original_ContactPerson")
14638             Else
14639                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ContactPerson,String)
14640             End If
14641             If (Original_ContactNo Is Nothing) Then
14642                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
14643             Else
14644                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ContactNo,String)
14645             End If
14646             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Id,Integer)
14647             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
14648             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14649                         <> Global.System.Data.ConnectionState.Open) Then
14650                 Me.Adapter.UpdateCommand.Connection.Open
14651             End If
14652             Try
14653                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
14654                 Return returnValue
14655             Finally
14656                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14657                     Me.Adapter.UpdateCommand.Connection.Close
14658                 End If
14659             End Try
14660         End Function
14661         
14662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14664          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14665          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14666         Public Overloads Overridable Function Update(ByVal ContactPerson As String, ByVal ContactNo As String, ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String) As Integer
14667             Return Me.Update(ContactPerson, ContactNo, Original_Id, Original_ContactPerson, Original_ContactNo, Original_Id)
14668         End Function
14669     End Class
14670     
14671     '''<summary>
14672     '''Represents the connection and commands used to retrieve and save data.
14673     '''</summary>
14674     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
14675      Global.System.ComponentModel.ToolboxItem(true), _
14676      Global.System.ComponentModel.DataObjectAttribute(true), _
14677      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
14678         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
14679      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14680     Partial Public Class CustomerTableAdapter
14681         Inherits Global.System.ComponentModel.Component
14682         
14683         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
14684         
14685         Private _connection As Global.System.Data.SqlClient.SqlConnection
14686         
14687         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
14688         
14689         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
14690         
14691         Private _clearBeforeFill As Boolean
14692         
14693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14695         Public Sub New()
14696             MyBase.New
14697             Me.ClearBeforeFill = true
14698         End Sub
14699         
14700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14702         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
14703             Get
14704                 If (Me._adapter Is Nothing) Then
14705                     Me.InitAdapter
14706                 End If
14707                 Return Me._adapter
14708             End Get
14709         End Property
14710         
14711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14713         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
14714             Get
14715                 If (Me._connection Is Nothing) Then
14716                     Me.InitConnection
14717                 End If
14718                 Return Me._connection
14719             End Get
14720             Set
14721                 Me._connection = value
14722                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
14723                     Me.Adapter.InsertCommand.Connection = value
14724                 End If
14725                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
14726                     Me.Adapter.DeleteCommand.Connection = value
14727                 End If
14728                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
14729                     Me.Adapter.UpdateCommand.Connection = value
14730                 End If
14731                 Dim i As Integer = 0
14732                 Do While (i < Me.CommandCollection.Length)
14733                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
14734                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
14735                     End If
14736                     i = (i + 1)
14737                 Loop
14738             End Set
14739         End Property
14740         
14741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14743         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
14744             Get
14745                 Return Me._transaction
14746             End Get
14747             Set
14748                 Me._transaction = value
14749                 Dim i As Integer = 0
14750                 Do While (i < Me.CommandCollection.Length)
14751                     Me.CommandCollection(i).Transaction = Me._transaction
14752                     i = (i + 1)
14753                 Loop
14754                 If ((Not (Me.Adapter) Is Nothing) _
14755                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
14756                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
14757                 End If
14758                 If ((Not (Me.Adapter) Is Nothing) _
14759                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
14760                     Me.Adapter.InsertCommand.Transaction = Me._transaction
14761                 End If
14762                 If ((Not (Me.Adapter) Is Nothing) _
14763                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
14764                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
14765                 End If
14766             End Set
14767         End Property
14768         
14769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14771         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
14772             Get
14773                 If (Me._commandCollection Is Nothing) Then
14774                     Me.InitCommandCollection
14775                 End If
14776                 Return Me._commandCollection
14777             End Get
14778         End Property
14779         
14780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14782         Public Property ClearBeforeFill() As Boolean
14783             Get
14784                 Return Me._clearBeforeFill
14785             End Get
14786             Set
14787                 Me._clearBeforeFill = value
14788             End Set
14789         End Property
14790         
14791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14793         Private Sub InitAdapter()
14794             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
14795             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
14796             tableMapping.SourceTable = "Table"
14797             tableMapping.DataSetTable = "Customer"
14798             tableMapping.ColumnMappings.Add("ID", "ID")
14799             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
14800             tableMapping.ColumnMappings.Add("Name", "Name")
14801             tableMapping.ColumnMappings.Add("Gender", "Gender")
14802             tableMapping.ColumnMappings.Add("Address", "Address")
14803             tableMapping.ColumnMappings.Add("City", "City")
14804             tableMapping.ColumnMappings.Add("State", "State")
14805             tableMapping.ColumnMappings.Add("ZipCode", "ZipCode")
14806             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
14807             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
14808             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
14809             tableMapping.ColumnMappings.Add("Photo", "Photo")
14810             Me._adapter.TableMappings.Add(tableMapping)
14811             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
14812             Me._adapter.DeleteCommand.Connection = Me.Connection
14813             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Customer] WHERE (([ID] = @Original_ID) AND ([CustomerID] = @Or"& _
14814                 "iginal_CustomerID) AND ([Name] = @Original_Name) AND ([Gender] = @Original_Gende"& _
14815                 "r) AND ([Address] = @Original_Address) AND ([City] = @Original_City) AND ([State"& _
14816                 "] = @Original_State) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCo"& _
14817                 "de] = @Original_ZipCode)) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_"& _
14818                 "EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)))"
14819             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
14820             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14821             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14822             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14823             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14824             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14825             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14826             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14827             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
14828             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14829             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14830             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
14831             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14832             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
14833             Me._adapter.InsertCommand.Connection = Me.Connection
14834             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Customer] ([ID], [CustomerID], [Name], [Gender], [Address], [C"& _
14835                 "ity], [State], [ZipCode], [ContactNo], [EmailID], [Remarks], [Photo]) VALUES (@I"& _
14836                 "D, @CustomerID, @Name, @Gender, @Address, @City, @State, @ZipCode, @ContactNo, @"& _
14837                 "EmailID, @Remarks, @Photo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CustomerID, Name, Gender, Address, City,"& _
14838                 " State, ZipCode, ContactNo, EmailID, Remarks, Photo FROM Customer WHERE (ID = @I"& _
14839                 "D)"
14840             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
14841             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14842             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14843             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14844             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14845             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14846             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14847             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14848             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14849             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14850             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14851             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14852             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14853             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
14854             Me._adapter.UpdateCommand.Connection = Me.Connection
14855             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Customer] SET [ID] = @ID, [CustomerID] = @CustomerID, [Name] = @Nam"& _
14856                 "e, [Gender] = @Gender, [Address] = @Address, [City] = @City, [State] = @State, ["& _
14857                 "ZipCode] = @ZipCode, [ContactNo] = @ContactNo, [EmailID] = @EmailID, [Remarks] ="& _
14858                 " @Remarks, [Photo] = @Photo WHERE (([ID] = @Original_ID) AND ([CustomerID] = @Or"& _
14859                 "iginal_CustomerID) AND ([Name] = @Original_Name) AND ([Gender] = @Original_Gende"& _
14860                 "r) AND ([Address] = @Original_Address) AND ([City] = @Original_City) AND ([State"& _
14861                 "] = @Original_State) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCo"& _
14862                 "de] = @Original_ZipCode)) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_"& _
14863                 "EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
14864                 " ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID"& _
14865                 ", Remarks, Photo FROM Customer WHERE (ID = @ID)"
14866             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
14867             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14868             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14869             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14870             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14871             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14872             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14873             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14874             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14875             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14876             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14877             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14878             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14879             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14880             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14881             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14882             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14883             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14884             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14885             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14886             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
14887             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14888             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14889             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
14890             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14891         End Sub
14892         
14893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14895         Private Sub InitConnection()
14896             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
14897             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
14898         End Sub
14899         
14900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14902         Private Sub InitCommandCollection()
14903             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
14904             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
14905             Me._commandCollection(0).Connection = Me.Connection
14906             Me._commandCollection(0).CommandText = "SELECT ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, Em"& _
14907                 "ailID, Remarks, Photo FROM dbo.Customer"
14908             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
14909         End Sub
14910         
14911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14913          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14914          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
14915         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.CustomerDataTable) As Integer
14916             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14917             If (Me.ClearBeforeFill = true) Then
14918                 dataTable.Clear
14919             End If
14920             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
14921             Return returnValue
14922         End Function
14923         
14924         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14925          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14926          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14927          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
14928         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.CustomerDataTable
14929             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14930             Dim dataTable As SIS_DBDataSet1.CustomerDataTable = New SIS_DBDataSet1.CustomerDataTable()
14931             Me.Adapter.Fill(dataTable)
14932             Return dataTable
14933         End Function
14934         
14935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14937          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14938         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.CustomerDataTable) As Integer
14939             Return Me.Adapter.Update(dataTable)
14940         End Function
14941         
14942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14944          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14945         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
14946             Return Me.Adapter.Update(dataSet, "Customer")
14947         End Function
14948         
14949         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14950          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14951          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14952         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
14953             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
14954         End Function
14955         
14956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14958          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14959         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
14960             Return Me.Adapter.Update(dataRows)
14961         End Function
14962         
14963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14965          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14966          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
14967         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_CustomerID As String, ByVal Original_Name As String, ByVal Original_Gender As String, ByVal Original_Address As String, ByVal Original_City As String, ByVal Original_State As String, ByVal Original_ZipCode As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String) As Integer
14968             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
14969             If (Original_CustomerID Is Nothing) Then
14970                 Throw New Global.System.ArgumentNullException("Original_CustomerID")
14971             Else
14972                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CustomerID,String)
14973             End If
14974             If (Original_Name Is Nothing) Then
14975                 Throw New Global.System.ArgumentNullException("Original_Name")
14976             Else
14977                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Name,String)
14978             End If
14979             If (Original_Gender Is Nothing) Then
14980                 Throw New Global.System.ArgumentNullException("Original_Gender")
14981             Else
14982                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Gender,String)
14983             End If
14984             If (Original_Address Is Nothing) Then
14985                 Throw New Global.System.ArgumentNullException("Original_Address")
14986             Else
14987                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Address,String)
14988             End If
14989             If (Original_City Is Nothing) Then
14990                 Throw New Global.System.ArgumentNullException("Original_City")
14991             Else
14992                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_City,String)
14993             End If
14994             If (Original_State Is Nothing) Then
14995                 Throw New Global.System.ArgumentNullException("Original_State")
14996             Else
14997                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_State,String)
14998             End If
14999             If (Original_ZipCode Is Nothing) Then
15000                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
15001                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
15002             Else
15003                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
15004                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ZipCode,String)
15005             End If
15006             If (Original_ContactNo Is Nothing) Then
15007                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
15008             Else
15009                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ContactNo,String)
15010             End If
15011             If (Original_EmailID Is Nothing) Then
15012                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
15013                 Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
15014             Else
15015                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
15016                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_EmailID,String)
15017             End If
15018             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15019             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15020                         <> Global.System.Data.ConnectionState.Open) Then
15021                 Me.Adapter.DeleteCommand.Connection.Open
15022             End If
15023             Try
15024                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15025                 Return returnValue
15026             Finally
15027                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15028                     Me.Adapter.DeleteCommand.Connection.Close
15029                 End If
15030             End Try
15031         End Function
15032         
15033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15035          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15036          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15037         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal CustomerID As String, ByVal Name As String, ByVal Gender As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String, ByVal Photo() As Byte) As Integer
15038             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
15039             If (CustomerID Is Nothing) Then
15040                 Throw New Global.System.ArgumentNullException("CustomerID")
15041             Else
15042                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(CustomerID,String)
15043             End If
15044             If (Name Is Nothing) Then
15045                 Throw New Global.System.ArgumentNullException("Name")
15046             Else
15047                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
15048             End If
15049             If (Gender Is Nothing) Then
15050                 Throw New Global.System.ArgumentNullException("Gender")
15051             Else
15052                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Gender,String)
15053             End If
15054             If (Address Is Nothing) Then
15055                 Throw New Global.System.ArgumentNullException("Address")
15056             Else
15057                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Address,String)
15058             End If
15059             If (City Is Nothing) Then
15060                 Throw New Global.System.ArgumentNullException("City")
15061             Else
15062                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(City,String)
15063             End If
15064             If (State Is Nothing) Then
15065                 Throw New Global.System.ArgumentNullException("State")
15066             Else
15067                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(State,String)
15068             End If
15069             If (ZipCode Is Nothing) Then
15070                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
15071             Else
15072                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(ZipCode,String)
15073             End If
15074             If (ContactNo Is Nothing) Then
15075                 Throw New Global.System.ArgumentNullException("ContactNo")
15076             Else
15077                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(ContactNo,String)
15078             End If
15079             If (EmailID Is Nothing) Then
15080                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
15081             Else
15082                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(EmailID,String)
15083             End If
15084             If (Remarks Is Nothing) Then
15085                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
15086             Else
15087                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(Remarks,String)
15088             End If
15089             If (Photo Is Nothing) Then
15090                 Throw New Global.System.ArgumentNullException("Photo")
15091             Else
15092                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(Photo,Byte())
15093             End If
15094             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15095             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15096                         <> Global.System.Data.ConnectionState.Open) Then
15097                 Me.Adapter.InsertCommand.Connection.Open
15098             End If
15099             Try
15100                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15101                 Return returnValue
15102             Finally
15103                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15104                     Me.Adapter.InsertCommand.Connection.Close
15105                 End If
15106             End Try
15107         End Function
15108         
15109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15111          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15112          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15113         Public Overloads Overridable Function Update( _
15114                     ByVal ID As Integer, _
15115                     ByVal CustomerID As String, _
15116                     ByVal Name As String, _
15117                     ByVal Gender As String, _
15118                     ByVal Address As String, _
15119                     ByVal City As String, _
15120                     ByVal State As String, _
15121                     ByVal ZipCode As String, _
15122                     ByVal ContactNo As String, _
15123                     ByVal EmailID As String, _
15124                     ByVal Remarks As String, _
15125                     ByVal Photo() As Byte, _
15126                     ByVal Original_ID As Integer, _
15127                     ByVal Original_CustomerID As String, _
15128                     ByVal Original_Name As String, _
15129                     ByVal Original_Gender As String, _
15130                     ByVal Original_Address As String, _
15131                     ByVal Original_City As String, _
15132                     ByVal Original_State As String, _
15133                     ByVal Original_ZipCode As String, _
15134                     ByVal Original_ContactNo As String, _
15135                     ByVal Original_EmailID As String) As Integer
15136             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
15137             If (CustomerID Is Nothing) Then
15138                 Throw New Global.System.ArgumentNullException("CustomerID")
15139             Else
15140                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CustomerID,String)
15141             End If
15142             If (Name Is Nothing) Then
15143                 Throw New Global.System.ArgumentNullException("Name")
15144             Else
15145                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
15146             End If
15147             If (Gender Is Nothing) Then
15148                 Throw New Global.System.ArgumentNullException("Gender")
15149             Else
15150                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Gender,String)
15151             End If
15152             If (Address Is Nothing) Then
15153                 Throw New Global.System.ArgumentNullException("Address")
15154             Else
15155                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Address,String)
15156             End If
15157             If (City Is Nothing) Then
15158                 Throw New Global.System.ArgumentNullException("City")
15159             Else
15160                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(City,String)
15161             End If
15162             If (State Is Nothing) Then
15163                 Throw New Global.System.ArgumentNullException("State")
15164             Else
15165                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(State,String)
15166             End If
15167             If (ZipCode Is Nothing) Then
15168                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
15169             Else
15170                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ZipCode,String)
15171             End If
15172             If (ContactNo Is Nothing) Then
15173                 Throw New Global.System.ArgumentNullException("ContactNo")
15174             Else
15175                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ContactNo,String)
15176             End If
15177             If (EmailID Is Nothing) Then
15178                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
15179             Else
15180                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EmailID,String)
15181             End If
15182             If (Remarks Is Nothing) Then
15183                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
15184             Else
15185                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Remarks,String)
15186             End If
15187             If (Photo Is Nothing) Then
15188                 Throw New Global.System.ArgumentNullException("Photo")
15189             Else
15190                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Photo,Byte())
15191             End If
15192             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ID,Integer)
15193             If (Original_CustomerID Is Nothing) Then
15194                 Throw New Global.System.ArgumentNullException("Original_CustomerID")
15195             Else
15196                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CustomerID,String)
15197             End If
15198             If (Original_Name Is Nothing) Then
15199                 Throw New Global.System.ArgumentNullException("Original_Name")
15200             Else
15201                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Name,String)
15202             End If
15203             If (Original_Gender Is Nothing) Then
15204                 Throw New Global.System.ArgumentNullException("Original_Gender")
15205             Else
15206                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Gender,String)
15207             End If
15208             If (Original_Address Is Nothing) Then
15209                 Throw New Global.System.ArgumentNullException("Original_Address")
15210             Else
15211                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Address,String)
15212             End If
15213             If (Original_City Is Nothing) Then
15214                 Throw New Global.System.ArgumentNullException("Original_City")
15215             Else
15216                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_City,String)
15217             End If
15218             If (Original_State Is Nothing) Then
15219                 Throw New Global.System.ArgumentNullException("Original_State")
15220             Else
15221                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_State,String)
15222             End If
15223             If (Original_ZipCode Is Nothing) Then
15224                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
15225                 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
15226             Else
15227                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
15228                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ZipCode,String)
15229             End If
15230             If (Original_ContactNo Is Nothing) Then
15231                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
15232             Else
15233                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ContactNo,String)
15234             End If
15235             If (Original_EmailID Is Nothing) Then
15236                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
15237                 Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
15238             Else
15239                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
15240                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_EmailID,String)
15241             End If
15242             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15243             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15244                         <> Global.System.Data.ConnectionState.Open) Then
15245                 Me.Adapter.UpdateCommand.Connection.Open
15246             End If
15247             Try
15248                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
15249                 Return returnValue
15250             Finally
15251                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15252                     Me.Adapter.UpdateCommand.Connection.Close
15253                 End If
15254             End Try
15255         End Function
15256         
15257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15259          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15260          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15261         Public Overloads Overridable Function Update( _
15262                     ByVal CustomerID As String, _
15263                     ByVal Name As String, _
15264                     ByVal Gender As String, _
15265                     ByVal Address As String, _
15266                     ByVal City As String, _
15267                     ByVal State As String, _
15268                     ByVal ZipCode As String, _
15269                     ByVal ContactNo As String, _
15270                     ByVal EmailID As String, _
15271                     ByVal Remarks As String, _
15272                     ByVal Photo() As Byte, _
15273                     ByVal Original_ID As Integer, _
15274                     ByVal Original_CustomerID As String, _
15275                     ByVal Original_Name As String, _
15276                     ByVal Original_Gender As String, _
15277                     ByVal Original_Address As String, _
15278                     ByVal Original_City As String, _
15279                     ByVal Original_State As String, _
15280                     ByVal Original_ZipCode As String, _
15281                     ByVal Original_ContactNo As String, _
15282                     ByVal Original_EmailID As String) As Integer
15283             Return Me.Update(Original_ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Photo, Original_ID, Original_CustomerID, Original_Name, Original_Gender, Original_Address, Original_City, Original_State, Original_ZipCode, Original_ContactNo, Original_EmailID)
15284         End Function
15285     End Class
15286     
15287     '''<summary>
15288     '''Represents the connection and commands used to retrieve and save data.
15289     '''</summary>
15290     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
15291      Global.System.ComponentModel.ToolboxItem(true), _
15292      Global.System.ComponentModel.DataObjectAttribute(true), _
15293      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
15294         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
15295      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15296     Partial Public Class Invoice_PaymentTableAdapter
15297         Inherits Global.System.ComponentModel.Component
15298         
15299         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
15300         
15301         Private _connection As Global.System.Data.SqlClient.SqlConnection
15302         
15303         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
15304         
15305         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
15306         
15307         Private _clearBeforeFill As Boolean
15308         
15309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15311         Public Sub New()
15312             MyBase.New
15313             Me.ClearBeforeFill = true
15314         End Sub
15315         
15316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15318         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
15319             Get
15320                 If (Me._adapter Is Nothing) Then
15321                     Me.InitAdapter
15322                 End If
15323                 Return Me._adapter
15324             End Get
15325         End Property
15326         
15327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15329         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
15330             Get
15331                 If (Me._connection Is Nothing) Then
15332                     Me.InitConnection
15333                 End If
15334                 Return Me._connection
15335             End Get
15336             Set
15337                 Me._connection = value
15338                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
15339                     Me.Adapter.InsertCommand.Connection = value
15340                 End If
15341                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
15342                     Me.Adapter.DeleteCommand.Connection = value
15343                 End If
15344                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
15345                     Me.Adapter.UpdateCommand.Connection = value
15346                 End If
15347                 Dim i As Integer = 0
15348                 Do While (i < Me.CommandCollection.Length)
15349                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
15350                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
15351                     End If
15352                     i = (i + 1)
15353                 Loop
15354             End Set
15355         End Property
15356         
15357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15359         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
15360             Get
15361                 Return Me._transaction
15362             End Get
15363             Set
15364                 Me._transaction = value
15365                 Dim i As Integer = 0
15366                 Do While (i < Me.CommandCollection.Length)
15367                     Me.CommandCollection(i).Transaction = Me._transaction
15368                     i = (i + 1)
15369                 Loop
15370                 If ((Not (Me.Adapter) Is Nothing) _
15371                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
15372                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
15373                 End If
15374                 If ((Not (Me.Adapter) Is Nothing) _
15375                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15376                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15377                 End If
15378                 If ((Not (Me.Adapter) Is Nothing) _
15379                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15380                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15381                 End If
15382             End Set
15383         End Property
15384         
15385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15387         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15388             Get
15389                 If (Me._commandCollection Is Nothing) Then
15390                     Me.InitCommandCollection
15391                 End If
15392                 Return Me._commandCollection
15393             End Get
15394         End Property
15395         
15396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15398         Public Property ClearBeforeFill() As Boolean
15399             Get
15400                 Return Me._clearBeforeFill
15401             End Get
15402             Set
15403                 Me._clearBeforeFill = value
15404             End Set
15405         End Property
15406         
15407         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15408          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15409         Private Sub InitAdapter()
15410             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15411             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15412             tableMapping.SourceTable = "Table"
15413             tableMapping.DataSetTable = "Invoice_Payment"
15414             tableMapping.ColumnMappings.Add("IP_ID", "IP_ID")
15415             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
15416             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
15417             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
15418             tableMapping.ColumnMappings.Add("PaymentMode", "PaymentMode")
15419             Me._adapter.TableMappings.Add(tableMapping)
15420             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15421             Me._adapter.DeleteCommand.Connection = Me.Connection
15422             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice_Payment] WHERE (([IP_ID] = @Original_IP_ID) AND ([Invo"& _
15423                 "iceID] = @Original_InvoiceID) AND ([PaymentDate] = @Original_PaymentDate) AND (["& _
15424                 "TotalPaid] = @Original_TotalPaid) AND ([PaymentMode] = @Original_PaymentMode))"
15425             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15426             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15427             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15428             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15429             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15430             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15431             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15432             Me._adapter.InsertCommand.Connection = Me.Connection
15433             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice_Payment] ([InvoiceID], [PaymentDate], [TotalPaid], [Pa"& _
15434                 "ymentMode]) VALUES (@InvoiceID, @PaymentDate, @TotalPaid, @PaymentMode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
15435                 " IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM Invoice_Payment WHER"& _
15436                 "E (IP_ID = SCOPE_IDENTITY())"
15437             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15438             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15439             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15440             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15441             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15442             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15443             Me._adapter.UpdateCommand.Connection = Me.Connection
15444             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice_Payment] SET [InvoiceID] = @InvoiceID, [PaymentDate] = @Pay"& _
15445                 "mentDate, [TotalPaid] = @TotalPaid, [PaymentMode] = @PaymentMode WHERE (([IP_ID]"& _
15446                 " = @Original_IP_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([PaymentDate] ="& _
15447                 " @Original_PaymentDate) AND ([TotalPaid] = @Original_TotalPaid) AND ([PaymentMod"& _
15448                 "e] = @Original_PaymentMode));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, "& _
15449                 "PaymentMode FROM Invoice_Payment WHERE (IP_ID = @IP_ID)"
15450             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15451             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15452             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15453             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15454             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15455             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15456             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15457             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15458             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15459             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15460             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15461         End Sub
15462         
15463         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15464          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15465         Private Sub InitConnection()
15466             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15467             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15468         End Sub
15469         
15470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15472         Private Sub InitCommandCollection()
15473             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15474             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15475             Me._commandCollection(0).Connection = Me.Connection
15476             Me._commandCollection(0).CommandText = "SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM dbo.Invoice_Pay"& _
15477                 "ment"
15478             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15479         End Sub
15480         
15481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15483          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15484          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15485         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Invoice_PaymentDataTable) As Integer
15486             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15487             If (Me.ClearBeforeFill = true) Then
15488                 dataTable.Clear
15489             End If
15490             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15491             Return returnValue
15492         End Function
15493         
15494         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15495          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15496          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15497          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15498         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Invoice_PaymentDataTable
15499             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15500             Dim dataTable As SIS_DBDataSet1.Invoice_PaymentDataTable = New SIS_DBDataSet1.Invoice_PaymentDataTable()
15501             Me.Adapter.Fill(dataTable)
15502             Return dataTable
15503         End Function
15504         
15505         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15506          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15507          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15508         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Invoice_PaymentDataTable) As Integer
15509             Return Me.Adapter.Update(dataTable)
15510         End Function
15511         
15512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15514          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15515         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
15516             Return Me.Adapter.Update(dataSet, "Invoice_Payment")
15517         End Function
15518         
15519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15521          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15522         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15523             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15524         End Function
15525         
15526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15528          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15529         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15530             Return Me.Adapter.Update(dataRows)
15531         End Function
15532         
15533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15535          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15536          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15537         Public Overloads Overridable Function Delete(ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
15538             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IP_ID,Integer)
15539             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
15540             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentDate,Date)
15541             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TotalPaid,Decimal)
15542             If (Original_PaymentMode Is Nothing) Then
15543                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
15544             Else
15545                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PaymentMode,String)
15546             End If
15547             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15548             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15549                         <> Global.System.Data.ConnectionState.Open) Then
15550                 Me.Adapter.DeleteCommand.Connection.Open
15551             End If
15552             Try
15553                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15554                 Return returnValue
15555             Finally
15556                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15557                     Me.Adapter.DeleteCommand.Connection.Close
15558                 End If
15559             End Try
15560         End Function
15561         
15562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15564          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15565          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15566         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Integer
15567             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
15568             Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentDate,Date)
15569             Me.Adapter.InsertCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
15570             If (PaymentMode Is Nothing) Then
15571                 Throw New Global.System.ArgumentNullException("PaymentMode")
15572             Else
15573                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(PaymentMode,String)
15574             End If
15575             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15576             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15577                         <> Global.System.Data.ConnectionState.Open) Then
15578                 Me.Adapter.InsertCommand.Connection.Open
15579             End If
15580             Try
15581                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15582                 Return returnValue
15583             Finally
15584                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15585                     Me.Adapter.InsertCommand.Connection.Close
15586                 End If
15587             End Try
15588         End Function
15589         
15590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15592          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15593          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15594         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String, ByVal IP_ID As Integer) As Integer
15595             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
15596             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentDate,Date)
15597             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
15598             If (PaymentMode Is Nothing) Then
15599                 Throw New Global.System.ArgumentNullException("PaymentMode")
15600             Else
15601                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PaymentMode,String)
15602             End If
15603             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IP_ID,Integer)
15604             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_InvoiceID,Integer)
15605             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_PaymentDate,Date)
15606             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TotalPaid,Decimal)
15607             If (Original_PaymentMode Is Nothing) Then
15608                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
15609             Else
15610                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_PaymentMode,String)
15611             End If
15612             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(IP_ID,Integer)
15613             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15614             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15615                         <> Global.System.Data.ConnectionState.Open) Then
15616                 Me.Adapter.UpdateCommand.Connection.Open
15617             End If
15618             Try
15619                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
15620                 Return returnValue
15621             Finally
15622                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15623                     Me.Adapter.UpdateCommand.Connection.Close
15624                 End If
15625             End Try
15626         End Function
15627         
15628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15630          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15631          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15632         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
15633             Return Me.Update(InvoiceID, PaymentDate, TotalPaid, PaymentMode, Original_IP_ID, Original_InvoiceID, Original_PaymentDate, Original_TotalPaid, Original_PaymentMode, Original_IP_ID)
15634         End Function
15635     End Class
15636     
15637     '''<summary>
15638     '''Represents the connection and commands used to retrieve and save data.
15639     '''</summary>
15640     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
15641      Global.System.ComponentModel.ToolboxItem(true), _
15642      Global.System.ComponentModel.DataObjectAttribute(true), _
15643      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
15644         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
15645      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15646     Partial Public Class Invoice_ProductTableAdapter
15647         Inherits Global.System.ComponentModel.Component
15648         
15649         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
15650         
15651         Private _connection As Global.System.Data.SqlClient.SqlConnection
15652         
15653         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
15654         
15655         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
15656         
15657         Private _clearBeforeFill As Boolean
15658         
15659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15661         Public Sub New()
15662             MyBase.New
15663             Me.ClearBeforeFill = true
15664         End Sub
15665         
15666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15668         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
15669             Get
15670                 If (Me._adapter Is Nothing) Then
15671                     Me.InitAdapter
15672                 End If
15673                 Return Me._adapter
15674             End Get
15675         End Property
15676         
15677         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15678          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15679         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
15680             Get
15681                 If (Me._connection Is Nothing) Then
15682                     Me.InitConnection
15683                 End If
15684                 Return Me._connection
15685             End Get
15686             Set
15687                 Me._connection = value
15688                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
15689                     Me.Adapter.InsertCommand.Connection = value
15690                 End If
15691                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
15692                     Me.Adapter.DeleteCommand.Connection = value
15693                 End If
15694                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
15695                     Me.Adapter.UpdateCommand.Connection = value
15696                 End If
15697                 Dim i As Integer = 0
15698                 Do While (i < Me.CommandCollection.Length)
15699                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
15700                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
15701                     End If
15702                     i = (i + 1)
15703                 Loop
15704             End Set
15705         End Property
15706         
15707         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15708          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15709         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
15710             Get
15711                 Return Me._transaction
15712             End Get
15713             Set
15714                 Me._transaction = value
15715                 Dim i As Integer = 0
15716                 Do While (i < Me.CommandCollection.Length)
15717                     Me.CommandCollection(i).Transaction = Me._transaction
15718                     i = (i + 1)
15719                 Loop
15720                 If ((Not (Me.Adapter) Is Nothing) _
15721                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
15722                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
15723                 End If
15724                 If ((Not (Me.Adapter) Is Nothing) _
15725                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15726                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15727                 End If
15728                 If ((Not (Me.Adapter) Is Nothing) _
15729                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15730                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15731                 End If
15732             End Set
15733         End Property
15734         
15735         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15736          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15737         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15738             Get
15739                 If (Me._commandCollection Is Nothing) Then
15740                     Me.InitCommandCollection
15741                 End If
15742                 Return Me._commandCollection
15743             End Get
15744         End Property
15745         
15746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15748         Public Property ClearBeforeFill() As Boolean
15749             Get
15750                 Return Me._clearBeforeFill
15751             End Get
15752             Set
15753                 Me._clearBeforeFill = value
15754             End Set
15755         End Property
15756         
15757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15759         Private Sub InitAdapter()
15760             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15761             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15762             tableMapping.SourceTable = "Table"
15763             tableMapping.DataSetTable = "Invoice_Product"
15764             tableMapping.ColumnMappings.Add("IPo_ID", "IPo_ID")
15765             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
15766             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
15767             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
15768             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
15769             tableMapping.ColumnMappings.Add("Margin", "Margin")
15770             tableMapping.ColumnMappings.Add("Qty", "Qty")
15771             tableMapping.ColumnMappings.Add("Amount", "Amount")
15772             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
15773             tableMapping.ColumnMappings.Add("Discount", "Discount")
15774             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
15775             tableMapping.ColumnMappings.Add("VAT", "VAT")
15776             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
15777             Me._adapter.TableMappings.Add(tableMapping)
15778             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15779             Me._adapter.DeleteCommand.Connection = Me.Connection
15780             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice_Product] WHERE (([IPo_ID] = @Original_IPo_ID) AND ([In"& _
15781                 "voiceID] = @Original_InvoiceID) AND ([ProductID] = @Original_ProductID) AND ([Co"& _
15782                 "stPrice] = @Original_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) AN"& _
15783                 "D ([Margin] = @Original_Margin) AND ([Qty] = @Original_Qty) AND ([Amount] = @Ori"& _
15784                 "ginal_Amount) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Ori"& _
15785                 "ginal_Discount) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AN"& _
15786                 "D ([TotalAmount] = @Original_TotalAmount))"
15787             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15788             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IPo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15789             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15790             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15791             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15792             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15793             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15794             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15795             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15796             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15797             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15798             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15799             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15800             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15801             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15802             Me._adapter.InsertCommand.Connection = Me.Connection
15803             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice_Product] ([InvoiceID], [ProductID], [CostPrice], [Sell"& _
15804                 "ingPrice], [Margin], [Qty], [Amount], [DiscountPer], [Discount], [VATPer], [VAT]"& _
15805                 ", [TotalAmount]) VALUES (@InvoiceID, @ProductID, @CostPrice, @SellingPrice, @Mar"& _
15806                 "gin, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VAT, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
15807                 "CT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, D"& _
15808                 "iscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice_Product WHERE (IPo_I"& _
15809                 "D = SCOPE_IDENTITY())"
15810             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15811             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15812             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15813             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15814             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15815             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15816             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15817             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15818             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15819             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15820             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15821             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15822             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15823             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15824             Me._adapter.UpdateCommand.Connection = Me.Connection
15825             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice_Product] SET [InvoiceID] = @InvoiceID, [ProductID] = @Produ"& _
15826                 "ctID, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Margin] = @Marg"& _
15827                 "in, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @DiscountPer, [Discount] ="& _
15828                 " @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount] = @TotalAmount WHERE"& _
15829                 " (([IPo_ID] = @Original_IPo_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([Pr"& _
15830                 "oductID] = @Original_ProductID) AND ([CostPrice] = @Original_CostPrice) AND ([Se"& _
15831                 "llingPrice] = @Original_SellingPrice) AND ([Margin] = @Original_Margin) AND ([Qt"& _
15832                 "y] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([DiscountPer] = @Orig"& _
15833                 "inal_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPer] = @Origina"& _
15834                 "l_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Original_TotalAmount"& _
15835                 "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, "& _
15836                 "Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice_Product WHE"& _
15837                 "RE (IPo_ID = @IPo_ID)"
15838             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15839             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15840             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15841             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15842             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15843             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15844             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15845             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15846             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15847             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15848             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15849             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15850             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15851             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IPo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15852             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15853             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15854             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15855             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15856             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15857             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15858             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15859             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15860             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15861             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15862             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15863             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15864             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IPo_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15865         End Sub
15866         
15867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15869         Private Sub InitConnection()
15870             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15871             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15872         End Sub
15873         
15874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15876         Private Sub InitCommandCollection()
15877             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15878             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15879             Me._commandCollection(0).Connection = Me.Connection
15880             Me._commandCollection(0).CommandText = "SELECT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount"& _
15881                 ", DiscountPer, Discount, VATPer, VAT, TotalAmount FROM dbo.Invoice_Product"
15882             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15883         End Sub
15884         
15885         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15886          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15887          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15888          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15889         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Invoice_ProductDataTable) As Integer
15890             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15891             If (Me.ClearBeforeFill = true) Then
15892                 dataTable.Clear
15893             End If
15894             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15895             Return returnValue
15896         End Function
15897         
15898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15900          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15901          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15902         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Invoice_ProductDataTable
15903             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15904             Dim dataTable As SIS_DBDataSet1.Invoice_ProductDataTable = New SIS_DBDataSet1.Invoice_ProductDataTable()
15905             Me.Adapter.Fill(dataTable)
15906             Return dataTable
15907         End Function
15908         
15909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15911          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15912         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Invoice_ProductDataTable) As Integer
15913             Return Me.Adapter.Update(dataTable)
15914         End Function
15915         
15916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15918          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15919         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
15920             Return Me.Adapter.Update(dataSet, "Invoice_Product")
15921         End Function
15922         
15923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15925          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15926         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15927             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15928         End Function
15929         
15930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15932          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15933         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15934             Return Me.Adapter.Update(dataRows)
15935         End Function
15936         
15937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15939          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15940          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15941         Public Overloads Overridable Function Delete(ByVal Original_IPo_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_ProductID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Margin As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
15942             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IPo_ID,Integer)
15943             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
15944             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
15945             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CostPrice,Decimal)
15946             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SellingPrice,Decimal)
15947             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Margin,Decimal)
15948             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Qty,Integer)
15949             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
15950             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountPer,Decimal)
15951             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Discount,Decimal)
15952             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_VATPer,Decimal)
15953             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_VAT,Decimal)
15954             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalAmount,Decimal)
15955             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15956             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15957                         <> Global.System.Data.ConnectionState.Open) Then
15958                 Me.Adapter.DeleteCommand.Connection.Open
15959             End If
15960             Try
15961                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15962                 Return returnValue
15963             Finally
15964                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15965                     Me.Adapter.DeleteCommand.Connection.Close
15966                 End If
15967             End Try
15968         End Function
15969         
15970         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15971          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15972          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15973          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15974         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal ProductID As Integer, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
15975             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
15976             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
15977             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CostPrice,Decimal)
15978             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
15979             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Margin,Decimal)
15980             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Qty,Integer)
15981             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Amount,Decimal)
15982             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
15983             Me.Adapter.InsertCommand.Parameters(8).Value = CType(Discount,Decimal)
15984             Me.Adapter.InsertCommand.Parameters(9).Value = CType(VATPer,Decimal)
15985             Me.Adapter.InsertCommand.Parameters(10).Value = CType(VAT,Decimal)
15986             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
15987             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15988             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15989                         <> Global.System.Data.ConnectionState.Open) Then
15990                 Me.Adapter.InsertCommand.Connection.Open
15991             End If
15992             Try
15993                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15994                 Return returnValue
15995             Finally
15996                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15997                     Me.Adapter.InsertCommand.Connection.Close
15998                 End If
15999             End Try
16000         End Function
16001         
16002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16004          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16005          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16006         Public Overloads Overridable Function Update( _
16007                     ByVal InvoiceID As Integer, _
16008                     ByVal ProductID As Integer, _
16009                     ByVal CostPrice As Decimal, _
16010                     ByVal SellingPrice As Decimal, _
16011                     ByVal Margin As Decimal, _
16012                     ByVal Qty As Integer, _
16013                     ByVal Amount As Decimal, _
16014                     ByVal DiscountPer As Decimal, _
16015                     ByVal Discount As Decimal, _
16016                     ByVal VATPer As Decimal, _
16017                     ByVal VAT As Decimal, _
16018                     ByVal TotalAmount As Decimal, _
16019                     ByVal Original_IPo_ID As Integer, _
16020                     ByVal Original_InvoiceID As Integer, _
16021                     ByVal Original_ProductID As Integer, _
16022                     ByVal Original_CostPrice As Decimal, _
16023                     ByVal Original_SellingPrice As Decimal, _
16024                     ByVal Original_Margin As Decimal, _
16025                     ByVal Original_Qty As Integer, _
16026                     ByVal Original_Amount As Decimal, _
16027                     ByVal Original_DiscountPer As Decimal, _
16028                     ByVal Original_Discount As Decimal, _
16029                     ByVal Original_VATPer As Decimal, _
16030                     ByVal Original_VAT As Decimal, _
16031                     ByVal Original_TotalAmount As Decimal, _
16032                     ByVal IPo_ID As Integer) As Integer
16033             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
16034             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
16035             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CostPrice,Decimal)
16036             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
16037             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Margin,Decimal)
16038             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Qty,Integer)
16039             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Amount,Decimal)
16040             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
16041             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Discount,Decimal)
16042             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VATPer,Decimal)
16043             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VAT,Decimal)
16044             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
16045             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_IPo_ID,Integer)
16046             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_InvoiceID,Integer)
16047             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ProductID,Integer)
16048             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CostPrice,Decimal)
16049             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SellingPrice,Decimal)
16050             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Margin,Decimal)
16051             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Qty,Integer)
16052             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Amount,Decimal)
16053             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DiscountPer,Decimal)
16054             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Discount,Decimal)
16055             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_VATPer,Decimal)
16056             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_VAT,Decimal)
16057             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_TotalAmount,Decimal)
16058             Me.Adapter.UpdateCommand.Parameters(25).Value = CType(IPo_ID,Integer)
16059             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16060             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16061                         <> Global.System.Data.ConnectionState.Open) Then
16062                 Me.Adapter.UpdateCommand.Connection.Open
16063             End If
16064             Try
16065                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16066                 Return returnValue
16067             Finally
16068                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16069                     Me.Adapter.UpdateCommand.Connection.Close
16070                 End If
16071             End Try
16072         End Function
16073         
16074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16076          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16077          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16078         Public Overloads Overridable Function Update( _
16079                     ByVal InvoiceID As Integer, _
16080                     ByVal ProductID As Integer, _
16081                     ByVal CostPrice As Decimal, _
16082                     ByVal SellingPrice As Decimal, _
16083                     ByVal Margin As Decimal, _
16084                     ByVal Qty As Integer, _
16085                     ByVal Amount As Decimal, _
16086                     ByVal DiscountPer As Decimal, _
16087                     ByVal Discount As Decimal, _
16088                     ByVal VATPer As Decimal, _
16089                     ByVal VAT As Decimal, _
16090                     ByVal TotalAmount As Decimal, _
16091                     ByVal Original_IPo_ID As Integer, _
16092                     ByVal Original_InvoiceID As Integer, _
16093                     ByVal Original_ProductID As Integer, _
16094                     ByVal Original_CostPrice As Decimal, _
16095                     ByVal Original_SellingPrice As Decimal, _
16096                     ByVal Original_Margin As Decimal, _
16097                     ByVal Original_Qty As Integer, _
16098                     ByVal Original_Amount As Decimal, _
16099                     ByVal Original_DiscountPer As Decimal, _
16100                     ByVal Original_Discount As Decimal, _
16101                     ByVal Original_VATPer As Decimal, _
16102                     ByVal Original_VAT As Decimal, _
16103                     ByVal Original_TotalAmount As Decimal) As Integer
16104             Return Me.Update(InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_IPo_ID, Original_InvoiceID, Original_ProductID, Original_CostPrice, Original_SellingPrice, Original_Margin, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_IPo_ID)
16105         End Function
16106     End Class
16107     
16108     '''<summary>
16109     '''Represents the connection and commands used to retrieve and save data.
16110     '''</summary>
16111     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16112      Global.System.ComponentModel.ToolboxItem(true), _
16113      Global.System.ComponentModel.DataObjectAttribute(true), _
16114      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16115         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16116      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16117     Partial Public Class Invoice1_PaymentTableAdapter
16118         Inherits Global.System.ComponentModel.Component
16119         
16120         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16121         
16122         Private _connection As Global.System.Data.SqlClient.SqlConnection
16123         
16124         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16125         
16126         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16127         
16128         Private _clearBeforeFill As Boolean
16129         
16130         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16131          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16132         Public Sub New()
16133             MyBase.New
16134             Me.ClearBeforeFill = true
16135         End Sub
16136         
16137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16139         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16140             Get
16141                 If (Me._adapter Is Nothing) Then
16142                     Me.InitAdapter
16143                 End If
16144                 Return Me._adapter
16145             End Get
16146         End Property
16147         
16148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16150         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16151             Get
16152                 If (Me._connection Is Nothing) Then
16153                     Me.InitConnection
16154                 End If
16155                 Return Me._connection
16156             End Get
16157             Set
16158                 Me._connection = value
16159                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16160                     Me.Adapter.InsertCommand.Connection = value
16161                 End If
16162                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16163                     Me.Adapter.DeleteCommand.Connection = value
16164                 End If
16165                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16166                     Me.Adapter.UpdateCommand.Connection = value
16167                 End If
16168                 Dim i As Integer = 0
16169                 Do While (i < Me.CommandCollection.Length)
16170                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16171                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16172                     End If
16173                     i = (i + 1)
16174                 Loop
16175             End Set
16176         End Property
16177         
16178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16180         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
16181             Get
16182                 Return Me._transaction
16183             End Get
16184             Set
16185                 Me._transaction = value
16186                 Dim i As Integer = 0
16187                 Do While (i < Me.CommandCollection.Length)
16188                     Me.CommandCollection(i).Transaction = Me._transaction
16189                     i = (i + 1)
16190                 Loop
16191                 If ((Not (Me.Adapter) Is Nothing) _
16192                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
16193                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
16194                 End If
16195                 If ((Not (Me.Adapter) Is Nothing) _
16196                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
16197                     Me.Adapter.InsertCommand.Transaction = Me._transaction
16198                 End If
16199                 If ((Not (Me.Adapter) Is Nothing) _
16200                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
16201                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
16202                 End If
16203             End Set
16204         End Property
16205         
16206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16208         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
16209             Get
16210                 If (Me._commandCollection Is Nothing) Then
16211                     Me.InitCommandCollection
16212                 End If
16213                 Return Me._commandCollection
16214             End Get
16215         End Property
16216         
16217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16219         Public Property ClearBeforeFill() As Boolean
16220             Get
16221                 Return Me._clearBeforeFill
16222             End Get
16223             Set
16224                 Me._clearBeforeFill = value
16225             End Set
16226         End Property
16227         
16228         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16229          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16230         Private Sub InitAdapter()
16231             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
16232             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
16233             tableMapping.SourceTable = "Table"
16234             tableMapping.DataSetTable = "Invoice1_Payment"
16235             tableMapping.ColumnMappings.Add("IP_ID", "IP_ID")
16236             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
16237             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
16238             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
16239             tableMapping.ColumnMappings.Add("PaymentMode", "PaymentMode")
16240             Me._adapter.TableMappings.Add(tableMapping)
16241             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
16242             Me._adapter.DeleteCommand.Connection = Me.Connection
16243             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice1_Payment] WHERE (([IP_ID] = @Original_IP_ID) AND ([Inv"& _
16244                 "oiceID] = @Original_InvoiceID) AND ([PaymentDate] = @Original_PaymentDate) AND ("& _
16245                 "[TotalPaid] = @Original_TotalPaid) AND ([PaymentMode] = @Original_PaymentMode))"
16246             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
16247             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16248             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16249             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16250             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16251             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16252             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
16253             Me._adapter.InsertCommand.Connection = Me.Connection
16254             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice1_Payment] ([InvoiceID], [PaymentDate], [TotalPaid], [P"& _
16255                 "aymentMode]) VALUES (@InvoiceID, @PaymentDate, @TotalPaid, @PaymentMode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
16256                 "T IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM Invoice1_Payment WH"& _
16257                 "ERE (IP_ID = SCOPE_IDENTITY())"
16258             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
16259             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16260             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16261             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16262             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16263             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
16264             Me._adapter.UpdateCommand.Connection = Me.Connection
16265             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice1_Payment] SET [InvoiceID] = @InvoiceID, [PaymentDate] = @Pa"& _
16266                 "ymentDate, [TotalPaid] = @TotalPaid, [PaymentMode] = @PaymentMode WHERE (([IP_ID"& _
16267                 "] = @Original_IP_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([PaymentDate] "& _
16268                 "= @Original_PaymentDate) AND ([TotalPaid] = @Original_TotalPaid) AND ([PaymentMo"& _
16269                 "de] = @Original_PaymentMode));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid,"& _
16270                 " PaymentMode FROM Invoice1_Payment WHERE (IP_ID = @IP_ID)"
16271             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
16272             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16273             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16274             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16275             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16276             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16277             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16278             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16279             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16280             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16281             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16282         End Sub
16283         
16284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16286         Private Sub InitConnection()
16287             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
16288             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
16289         End Sub
16290         
16291         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16292          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16293         Private Sub InitCommandCollection()
16294             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
16295             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
16296             Me._commandCollection(0).Connection = Me.Connection
16297             Me._commandCollection(0).CommandText = "SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM dbo.Invoice1_Pa"& _
16298                 "yment"
16299             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
16300         End Sub
16301         
16302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16304          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16305          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
16306         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Invoice1_PaymentDataTable) As Integer
16307             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16308             If (Me.ClearBeforeFill = true) Then
16309                 dataTable.Clear
16310             End If
16311             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
16312             Return returnValue
16313         End Function
16314         
16315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16317          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16318          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
16319         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Invoice1_PaymentDataTable
16320             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16321             Dim dataTable As SIS_DBDataSet1.Invoice1_PaymentDataTable = New SIS_DBDataSet1.Invoice1_PaymentDataTable()
16322             Me.Adapter.Fill(dataTable)
16323             Return dataTable
16324         End Function
16325         
16326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16328          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16329         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Invoice1_PaymentDataTable) As Integer
16330             Return Me.Adapter.Update(dataTable)
16331         End Function
16332         
16333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16335          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16336         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
16337             Return Me.Adapter.Update(dataSet, "Invoice1_Payment")
16338         End Function
16339         
16340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16342          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16343         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
16344             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
16345         End Function
16346         
16347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16349          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16350         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
16351             Return Me.Adapter.Update(dataRows)
16352         End Function
16353         
16354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16356          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16357          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
16358         Public Overloads Overridable Function Delete(ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
16359             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IP_ID,Integer)
16360             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
16361             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentDate,Date)
16362             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TotalPaid,Decimal)
16363             If (Original_PaymentMode Is Nothing) Then
16364                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
16365             Else
16366                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PaymentMode,String)
16367             End If
16368             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
16369             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16370                         <> Global.System.Data.ConnectionState.Open) Then
16371                 Me.Adapter.DeleteCommand.Connection.Open
16372             End If
16373             Try
16374                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
16375                 Return returnValue
16376             Finally
16377                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16378                     Me.Adapter.DeleteCommand.Connection.Close
16379                 End If
16380             End Try
16381         End Function
16382         
16383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16385          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16386          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
16387         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Integer
16388             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
16389             Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentDate,Date)
16390             Me.Adapter.InsertCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
16391             If (PaymentMode Is Nothing) Then
16392                 Throw New Global.System.ArgumentNullException("PaymentMode")
16393             Else
16394                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(PaymentMode,String)
16395             End If
16396             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
16397             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16398                         <> Global.System.Data.ConnectionState.Open) Then
16399                 Me.Adapter.InsertCommand.Connection.Open
16400             End If
16401             Try
16402                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
16403                 Return returnValue
16404             Finally
16405                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16406                     Me.Adapter.InsertCommand.Connection.Close
16407                 End If
16408             End Try
16409         End Function
16410         
16411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16413          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16414          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16415         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String, ByVal IP_ID As Integer) As Integer
16416             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
16417             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentDate,Date)
16418             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
16419             If (PaymentMode Is Nothing) Then
16420                 Throw New Global.System.ArgumentNullException("PaymentMode")
16421             Else
16422                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PaymentMode,String)
16423             End If
16424             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IP_ID,Integer)
16425             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_InvoiceID,Integer)
16426             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_PaymentDate,Date)
16427             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TotalPaid,Decimal)
16428             If (Original_PaymentMode Is Nothing) Then
16429                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
16430             Else
16431                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_PaymentMode,String)
16432             End If
16433             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(IP_ID,Integer)
16434             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16435             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16436                         <> Global.System.Data.ConnectionState.Open) Then
16437                 Me.Adapter.UpdateCommand.Connection.Open
16438             End If
16439             Try
16440                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16441                 Return returnValue
16442             Finally
16443                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16444                     Me.Adapter.UpdateCommand.Connection.Close
16445                 End If
16446             End Try
16447         End Function
16448         
16449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16451          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16452          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16453         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
16454             Return Me.Update(InvoiceID, PaymentDate, TotalPaid, PaymentMode, Original_IP_ID, Original_InvoiceID, Original_PaymentDate, Original_TotalPaid, Original_PaymentMode, Original_IP_ID)
16455         End Function
16456     End Class
16457     
16458     '''<summary>
16459     '''Represents the connection and commands used to retrieve and save data.
16460     '''</summary>
16461     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16462      Global.System.ComponentModel.ToolboxItem(true), _
16463      Global.System.ComponentModel.DataObjectAttribute(true), _
16464      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16465         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16466      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16467     Partial Public Class Invoice1_ProductTableAdapter
16468         Inherits Global.System.ComponentModel.Component
16469         
16470         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16471         
16472         Private _connection As Global.System.Data.SqlClient.SqlConnection
16473         
16474         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16475         
16476         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16477         
16478         Private _clearBeforeFill As Boolean
16479         
16480         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16481          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16482         Public Sub New()
16483             MyBase.New
16484             Me.ClearBeforeFill = true
16485         End Sub
16486         
16487         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16488          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16489         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16490             Get
16491                 If (Me._adapter Is Nothing) Then
16492                     Me.InitAdapter
16493                 End If
16494                 Return Me._adapter
16495             End Get
16496         End Property
16497         
16498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16500         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16501             Get
16502                 If (Me._connection Is Nothing) Then
16503                     Me.InitConnection
16504                 End If
16505                 Return Me._connection
16506             End Get
16507             Set
16508                 Me._connection = value
16509                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16510                     Me.Adapter.InsertCommand.Connection = value
16511                 End If
16512                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16513                     Me.Adapter.DeleteCommand.Connection = value
16514                 End If
16515                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16516                     Me.Adapter.UpdateCommand.Connection = value
16517                 End If
16518                 Dim i As Integer = 0
16519                 Do While (i < Me.CommandCollection.Length)
16520                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16521                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16522                     End If
16523                     i = (i + 1)
16524                 Loop
16525             End Set
16526         End Property
16527         
16528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16530         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
16531             Get
16532                 Return Me._transaction
16533             End Get
16534             Set
16535                 Me._transaction = value
16536                 Dim i As Integer = 0
16537                 Do While (i < Me.CommandCollection.Length)
16538                     Me.CommandCollection(i).Transaction = Me._transaction
16539                     i = (i + 1)
16540                 Loop
16541                 If ((Not (Me.Adapter) Is Nothing) _
16542                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
16543                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
16544                 End If
16545                 If ((Not (Me.Adapter) Is Nothing) _
16546                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
16547                     Me.Adapter.InsertCommand.Transaction = Me._transaction
16548                 End If
16549                 If ((Not (Me.Adapter) Is Nothing) _
16550                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
16551                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
16552                 End If
16553             End Set
16554         End Property
16555         
16556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16558         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
16559             Get
16560                 If (Me._commandCollection Is Nothing) Then
16561                     Me.InitCommandCollection
16562                 End If
16563                 Return Me._commandCollection
16564             End Get
16565         End Property
16566         
16567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16569         Public Property ClearBeforeFill() As Boolean
16570             Get
16571                 Return Me._clearBeforeFill
16572             End Get
16573             Set
16574                 Me._clearBeforeFill = value
16575             End Set
16576         End Property
16577         
16578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16580         Private Sub InitAdapter()
16581             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
16582             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
16583             tableMapping.SourceTable = "Table"
16584             tableMapping.DataSetTable = "Invoice1_Product"
16585             tableMapping.ColumnMappings.Add("Ipo_ID", "Ipo_ID")
16586             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
16587             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
16588             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
16589             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
16590             tableMapping.ColumnMappings.Add("Margin", "Margin")
16591             tableMapping.ColumnMappings.Add("Qty", "Qty")
16592             tableMapping.ColumnMappings.Add("Amount", "Amount")
16593             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
16594             tableMapping.ColumnMappings.Add("Discount", "Discount")
16595             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
16596             tableMapping.ColumnMappings.Add("VAT", "VAT")
16597             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
16598             Me._adapter.TableMappings.Add(tableMapping)
16599             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
16600             Me._adapter.DeleteCommand.Connection = Me.Connection
16601             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice1_Product] WHERE (([Ipo_ID] = @Original_Ipo_ID) AND ([I"& _
16602                 "nvoiceID] = @Original_InvoiceID) AND ([ProductID] = @Original_ProductID) AND ([C"& _
16603                 "ostPrice] = @Original_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) A"& _
16604                 "ND ([Margin] = @Original_Margin) AND ([Qty] = @Original_Qty) AND ([Amount] = @Or"& _
16605                 "iginal_Amount) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Or"& _
16606                 "iginal_Discount) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) A"& _
16607                 "ND ([TotalAmount] = @Original_TotalAmount))"
16608             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
16609             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ipo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ipo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16610             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16611             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16612             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16613             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16614             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16615             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16616             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16617             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16618             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16619             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16620             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16621             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16622             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
16623             Me._adapter.InsertCommand.Connection = Me.Connection
16624             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice1_Product] ([InvoiceID], [ProductID], [CostPrice], [Sel"& _
16625                 "lingPrice], [Margin], [Qty], [Amount], [DiscountPer], [Discount], [VATPer], [VAT"& _
16626                 "], [TotalAmount]) VALUES (@InvoiceID, @ProductID, @CostPrice, @SellingPrice, @Ma"& _
16627                 "rgin, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VAT, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _
16628                 "ECT Ipo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, "& _
16629                 "DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice1_Product WHERE (Ipo"& _
16630                 "_ID = SCOPE_IDENTITY())"
16631             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
16632             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16633             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16634             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16635             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16636             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16637             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16638             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16639             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16640             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16641             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16642             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16643             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16644             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
16645             Me._adapter.UpdateCommand.Connection = Me.Connection
16646             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice1_Product] SET [InvoiceID] = @InvoiceID, [ProductID] = @Prod"& _
16647                 "uctID, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Margin] = @Mar"& _
16648                 "gin, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @DiscountPer, [Discount] "& _
16649                 "= @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount] = @TotalAmount WHER"& _
16650                 "E (([Ipo_ID] = @Original_Ipo_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([P"& _
16651                 "roductID] = @Original_ProductID) AND ([CostPrice] = @Original_CostPrice) AND ([S"& _
16652                 "ellingPrice] = @Original_SellingPrice) AND ([Margin] = @Original_Margin) AND ([Q"& _
16653                 "ty] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([DiscountPer] = @Ori"& _
16654                 "ginal_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPer] = @Origin"& _
16655                 "al_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Original_TotalAmoun"& _
16656                 "t));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Ipo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty,"& _
16657                 " Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice1_Product W"& _
16658                 "HERE (Ipo_ID = @Ipo_ID)"
16659             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
16660             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16661             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16662             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16663             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16664             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16665             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16666             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16667             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16668             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16669             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16670             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16671             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16672             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ipo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ipo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16673             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16674             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16675             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16676             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16677             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16678             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16679             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16680             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16681             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16682             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16683             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16684             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16685             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ipo_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Ipo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16686         End Sub
16687         
16688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16690         Private Sub InitConnection()
16691             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
16692             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
16693         End Sub
16694         
16695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16697         Private Sub InitCommandCollection()
16698             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
16699             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
16700             Me._commandCollection(0).Connection = Me.Connection
16701             Me._commandCollection(0).CommandText = "SELECT Ipo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount"& _
16702                 ", DiscountPer, Discount, VATPer, VAT, TotalAmount FROM dbo.Invoice1_Product"
16703             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
16704         End Sub
16705         
16706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16708          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16709          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
16710         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Invoice1_ProductDataTable) As Integer
16711             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16712             If (Me.ClearBeforeFill = true) Then
16713                 dataTable.Clear
16714             End If
16715             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
16716             Return returnValue
16717         End Function
16718         
16719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16721          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16722          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
16723         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Invoice1_ProductDataTable
16724             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16725             Dim dataTable As SIS_DBDataSet1.Invoice1_ProductDataTable = New SIS_DBDataSet1.Invoice1_ProductDataTable()
16726             Me.Adapter.Fill(dataTable)
16727             Return dataTable
16728         End Function
16729         
16730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16732          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16733         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Invoice1_ProductDataTable) As Integer
16734             Return Me.Adapter.Update(dataTable)
16735         End Function
16736         
16737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16739          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16740         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
16741             Return Me.Adapter.Update(dataSet, "Invoice1_Product")
16742         End Function
16743         
16744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16746          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16747         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
16748             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
16749         End Function
16750         
16751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16753          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16754         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
16755             Return Me.Adapter.Update(dataRows)
16756         End Function
16757         
16758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16760          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16761          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
16762         Public Overloads Overridable Function Delete(ByVal Original_Ipo_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_ProductID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Margin As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
16763             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Ipo_ID,Integer)
16764             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
16765             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
16766             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CostPrice,Decimal)
16767             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SellingPrice,Decimal)
16768             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Margin,Decimal)
16769             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Qty,Integer)
16770             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
16771             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountPer,Decimal)
16772             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Discount,Decimal)
16773             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_VATPer,Decimal)
16774             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_VAT,Decimal)
16775             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalAmount,Decimal)
16776             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
16777             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16778                         <> Global.System.Data.ConnectionState.Open) Then
16779                 Me.Adapter.DeleteCommand.Connection.Open
16780             End If
16781             Try
16782                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
16783                 Return returnValue
16784             Finally
16785                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16786                     Me.Adapter.DeleteCommand.Connection.Close
16787                 End If
16788             End Try
16789         End Function
16790         
16791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16793          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16794          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
16795         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal ProductID As Integer, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
16796             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
16797             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
16798             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CostPrice,Decimal)
16799             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
16800             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Margin,Decimal)
16801             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Qty,Integer)
16802             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Amount,Decimal)
16803             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
16804             Me.Adapter.InsertCommand.Parameters(8).Value = CType(Discount,Decimal)
16805             Me.Adapter.InsertCommand.Parameters(9).Value = CType(VATPer,Decimal)
16806             Me.Adapter.InsertCommand.Parameters(10).Value = CType(VAT,Decimal)
16807             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
16808             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
16809             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16810                         <> Global.System.Data.ConnectionState.Open) Then
16811                 Me.Adapter.InsertCommand.Connection.Open
16812             End If
16813             Try
16814                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
16815                 Return returnValue
16816             Finally
16817                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16818                     Me.Adapter.InsertCommand.Connection.Close
16819                 End If
16820             End Try
16821         End Function
16822         
16823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16825          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16826          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16827         Public Overloads Overridable Function Update( _
16828                     ByVal InvoiceID As Integer, _
16829                     ByVal ProductID As Integer, _
16830                     ByVal CostPrice As Decimal, _
16831                     ByVal SellingPrice As Decimal, _
16832                     ByVal Margin As Decimal, _
16833                     ByVal Qty As Integer, _
16834                     ByVal Amount As Decimal, _
16835                     ByVal DiscountPer As Decimal, _
16836                     ByVal Discount As Decimal, _
16837                     ByVal VATPer As Decimal, _
16838                     ByVal VAT As Decimal, _
16839                     ByVal TotalAmount As Decimal, _
16840                     ByVal Original_Ipo_ID As Integer, _
16841                     ByVal Original_InvoiceID As Integer, _
16842                     ByVal Original_ProductID As Integer, _
16843                     ByVal Original_CostPrice As Decimal, _
16844                     ByVal Original_SellingPrice As Decimal, _
16845                     ByVal Original_Margin As Decimal, _
16846                     ByVal Original_Qty As Integer, _
16847                     ByVal Original_Amount As Decimal, _
16848                     ByVal Original_DiscountPer As Decimal, _
16849                     ByVal Original_Discount As Decimal, _
16850                     ByVal Original_VATPer As Decimal, _
16851                     ByVal Original_VAT As Decimal, _
16852                     ByVal Original_TotalAmount As Decimal, _
16853                     ByVal Ipo_ID As Integer) As Integer
16854             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
16855             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
16856             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CostPrice,Decimal)
16857             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
16858             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Margin,Decimal)
16859             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Qty,Integer)
16860             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Amount,Decimal)
16861             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
16862             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Discount,Decimal)
16863             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VATPer,Decimal)
16864             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VAT,Decimal)
16865             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
16866             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Ipo_ID,Integer)
16867             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_InvoiceID,Integer)
16868             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ProductID,Integer)
16869             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CostPrice,Decimal)
16870             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SellingPrice,Decimal)
16871             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Margin,Decimal)
16872             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Qty,Integer)
16873             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Amount,Decimal)
16874             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DiscountPer,Decimal)
16875             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Discount,Decimal)
16876             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_VATPer,Decimal)
16877             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_VAT,Decimal)
16878             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_TotalAmount,Decimal)
16879             Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Ipo_ID,Integer)
16880             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16881             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16882                         <> Global.System.Data.ConnectionState.Open) Then
16883                 Me.Adapter.UpdateCommand.Connection.Open
16884             End If
16885             Try
16886                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16887                 Return returnValue
16888             Finally
16889                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16890                     Me.Adapter.UpdateCommand.Connection.Close
16891                 End If
16892             End Try
16893         End Function
16894         
16895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16897          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16898          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16899         Public Overloads Overridable Function Update( _
16900                     ByVal InvoiceID As Integer, _
16901                     ByVal ProductID As Integer, _
16902                     ByVal CostPrice As Decimal, _
16903                     ByVal SellingPrice As Decimal, _
16904                     ByVal Margin As Decimal, _
16905                     ByVal Qty As Integer, _
16906                     ByVal Amount As Decimal, _
16907                     ByVal DiscountPer As Decimal, _
16908                     ByVal Discount As Decimal, _
16909                     ByVal VATPer As Decimal, _
16910                     ByVal VAT As Decimal, _
16911                     ByVal TotalAmount As Decimal, _
16912                     ByVal Original_Ipo_ID As Integer, _
16913                     ByVal Original_InvoiceID As Integer, _
16914                     ByVal Original_ProductID As Integer, _
16915                     ByVal Original_CostPrice As Decimal, _
16916                     ByVal Original_SellingPrice As Decimal, _
16917                     ByVal Original_Margin As Decimal, _
16918                     ByVal Original_Qty As Integer, _
16919                     ByVal Original_Amount As Decimal, _
16920                     ByVal Original_DiscountPer As Decimal, _
16921                     ByVal Original_Discount As Decimal, _
16922                     ByVal Original_VATPer As Decimal, _
16923                     ByVal Original_VAT As Decimal, _
16924                     ByVal Original_TotalAmount As Decimal) As Integer
16925             Return Me.Update(InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_Ipo_ID, Original_InvoiceID, Original_ProductID, Original_CostPrice, Original_SellingPrice, Original_Margin, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_Ipo_ID)
16926         End Function
16927     End Class
16928     
16929     '''<summary>
16930     '''Represents the connection and commands used to retrieve and save data.
16931     '''</summary>
16932     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16933      Global.System.ComponentModel.ToolboxItem(true), _
16934      Global.System.ComponentModel.DataObjectAttribute(true), _
16935      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16936         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16937      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16938     Partial Public Class InvoiceInfoTableAdapter
16939         Inherits Global.System.ComponentModel.Component
16940         
16941         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16942         
16943         Private _connection As Global.System.Data.SqlClient.SqlConnection
16944         
16945         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16946         
16947         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16948         
16949         Private _clearBeforeFill As Boolean
16950         
16951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16953         Public Sub New()
16954             MyBase.New
16955             Me.ClearBeforeFill = true
16956         End Sub
16957         
16958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16960         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16961             Get
16962                 If (Me._adapter Is Nothing) Then
16963                     Me.InitAdapter
16964                 End If
16965                 Return Me._adapter
16966             End Get
16967         End Property
16968         
16969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16971         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16972             Get
16973                 If (Me._connection Is Nothing) Then
16974                     Me.InitConnection
16975                 End If
16976                 Return Me._connection
16977             End Get
16978             Set
16979                 Me._connection = value
16980                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16981                     Me.Adapter.InsertCommand.Connection = value
16982                 End If
16983                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16984                     Me.Adapter.DeleteCommand.Connection = value
16985                 End If
16986                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16987                     Me.Adapter.UpdateCommand.Connection = value
16988                 End If
16989                 Dim i As Integer = 0
16990                 Do While (i < Me.CommandCollection.Length)
16991                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16992                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16993                     End If
16994                     i = (i + 1)
16995                 Loop
16996             End Set
16997         End Property
16998         
16999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17001         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17002             Get
17003                 Return Me._transaction
17004             End Get
17005             Set
17006                 Me._transaction = value
17007                 Dim i As Integer = 0
17008                 Do While (i < Me.CommandCollection.Length)
17009                     Me.CommandCollection(i).Transaction = Me._transaction
17010                     i = (i + 1)
17011                 Loop
17012                 If ((Not (Me.Adapter) Is Nothing) _
17013                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17014                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17015                 End If
17016                 If ((Not (Me.Adapter) Is Nothing) _
17017                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17018                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17019                 End If
17020                 If ((Not (Me.Adapter) Is Nothing) _
17021                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17022                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17023                 End If
17024             End Set
17025         End Property
17026         
17027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17029         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17030             Get
17031                 If (Me._commandCollection Is Nothing) Then
17032                     Me.InitCommandCollection
17033                 End If
17034                 Return Me._commandCollection
17035             End Get
17036         End Property
17037         
17038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17040         Public Property ClearBeforeFill() As Boolean
17041             Get
17042                 Return Me._clearBeforeFill
17043             End Get
17044             Set
17045                 Me._clearBeforeFill = value
17046             End Set
17047         End Property
17048         
17049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17051         Private Sub InitAdapter()
17052             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17053             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17054             tableMapping.SourceTable = "Table"
17055             tableMapping.DataSetTable = "InvoiceInfo"
17056             tableMapping.ColumnMappings.Add("Inv_ID", "Inv_ID")
17057             tableMapping.ColumnMappings.Add("InvoiceNo", "InvoiceNo")
17058             tableMapping.ColumnMappings.Add("InvoiceDate", "InvoiceDate")
17059             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
17060             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
17061             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
17062             tableMapping.ColumnMappings.Add("Balance", "Balance")
17063             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
17064             Me._adapter.TableMappings.Add(tableMapping)
17065             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17066             Me._adapter.DeleteCommand.Connection = Me.Connection
17067             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[InvoiceInfo] WHERE (([Inv_ID] = @Original_Inv_ID) AND ([Invoic"& _
17068                 "eNo] = @Original_InvoiceNo) AND ([InvoiceDate] = @Original_InvoiceDate) AND ([Cu"& _
17069                 "stomerID] = @Original_CustomerID) AND ([GrandTotal] = @Original_GrandTotal) AND "& _
17070                 "([TotalPaid] = @Original_TotalPaid) AND ([Balance] = @Original_Balance))"
17071             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17072             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17073             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17074             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17075             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17076             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17077             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17078             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17079             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17080             Me._adapter.InsertCommand.Connection = Me.Connection
17081             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[InvoiceInfo] ([Inv_ID], [InvoiceNo], [InvoiceDate], [CustomerI"& _
17082                 "D], [GrandTotal], [TotalPaid], [Balance], [Remarks]) VALUES (@Inv_ID, @InvoiceNo"& _
17083                 ", @InvoiceDate, @CustomerID, @GrandTotal, @TotalPaid, @Balance, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
17084                 "CT Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance, R"& _
17085                 "emarks FROM InvoiceInfo WHERE (Inv_ID = @Inv_ID)"
17086             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17087             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17088             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17089             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17090             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17091             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17092             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17093             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17094             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17095             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17096             Me._adapter.UpdateCommand.Connection = Me.Connection
17097             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[InvoiceInfo] SET [Inv_ID] = @Inv_ID, [InvoiceNo] = @InvoiceNo, [Inv"& _
17098                 "oiceDate] = @InvoiceDate, [CustomerID] = @CustomerID, [GrandTotal] = @GrandTotal"& _
17099                 ", [TotalPaid] = @TotalPaid, [Balance] = @Balance, [Remarks] = @Remarks WHERE ((["& _
17100                 "Inv_ID] = @Original_Inv_ID) AND ([InvoiceNo] = @Original_InvoiceNo) AND ([Invoic"& _
17101                 "eDate] = @Original_InvoiceDate) AND ([CustomerID] = @Original_CustomerID) AND (["& _
17102                 "GrandTotal] = @Original_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND "& _
17103                 "([Balance] = @Original_Balance));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, InvoiceNo, InvoiceDate, Custom"& _
17104                 "erID, GrandTotal, TotalPaid, Balance, Remarks FROM InvoiceInfo WHERE (Inv_ID = @"& _
17105                 "Inv_ID)"
17106             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17107             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17108             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17109             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17110             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17111             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17112             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17113             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17114             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17115             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17116             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17117             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17118             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17119             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17120             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17121             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17122         End Sub
17123         
17124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17126         Private Sub InitConnection()
17127             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17128             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17129         End Sub
17130         
17131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17133         Private Sub InitCommandCollection()
17134             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17135             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17136             Me._commandCollection(0).Connection = Me.Connection
17137             Me._commandCollection(0).CommandText = "SELECT Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance"& _
17138                 ", Remarks FROM dbo.InvoiceInfo"
17139             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17140         End Sub
17141         
17142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17144          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17145          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17146         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.InvoiceInfoDataTable) As Integer
17147             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17148             If (Me.ClearBeforeFill = true) Then
17149                 dataTable.Clear
17150             End If
17151             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
17152             Return returnValue
17153         End Function
17154         
17155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17157          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17158          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
17159         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.InvoiceInfoDataTable
17160             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17161             Dim dataTable As SIS_DBDataSet1.InvoiceInfoDataTable = New SIS_DBDataSet1.InvoiceInfoDataTable()
17162             Me.Adapter.Fill(dataTable)
17163             Return dataTable
17164         End Function
17165         
17166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17168          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17169         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.InvoiceInfoDataTable) As Integer
17170             Return Me.Adapter.Update(dataTable)
17171         End Function
17172         
17173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17175          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17176         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
17177             Return Me.Adapter.Update(dataSet, "InvoiceInfo")
17178         End Function
17179         
17180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17182          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17183         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
17184             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
17185         End Function
17186         
17187         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17188          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17189          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17190         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
17191             Return Me.Adapter.Update(dataRows)
17192         End Function
17193         
17194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17196          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17197          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
17198         Public Overloads Overridable Function Delete(ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
17199             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Inv_ID,Integer)
17200             If (Original_InvoiceNo Is Nothing) Then
17201                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
17202             Else
17203                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceNo,String)
17204             End If
17205             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_InvoiceDate,Date)
17206             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CustomerID,Integer)
17207             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
17208             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalPaid,Decimal)
17209             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Balance,Decimal)
17210             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
17211             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17212                         <> Global.System.Data.ConnectionState.Open) Then
17213                 Me.Adapter.DeleteCommand.Connection.Open
17214             End If
17215             Try
17216                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
17217                 Return returnValue
17218             Finally
17219                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17220                     Me.Adapter.DeleteCommand.Connection.Close
17221                 End If
17222             End Try
17223         End Function
17224         
17225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17227          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17228          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
17229         Public Overloads Overridable Function Insert(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As Integer
17230             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Inv_ID,Integer)
17231             If (InvoiceNo Is Nothing) Then
17232                 Throw New Global.System.ArgumentNullException("InvoiceNo")
17233             Else
17234                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(InvoiceNo,String)
17235             End If
17236             Me.Adapter.InsertCommand.Parameters(2).Value = CType(InvoiceDate,Date)
17237             Me.Adapter.InsertCommand.Parameters(3).Value = CType(CustomerID,Integer)
17238             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
17239             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalPaid,Decimal)
17240             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Balance,Decimal)
17241             If (Remarks Is Nothing) Then
17242                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
17243             Else
17244                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Remarks,String)
17245             End If
17246             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
17247             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17248                         <> Global.System.Data.ConnectionState.Open) Then
17249                 Me.Adapter.InsertCommand.Connection.Open
17250             End If
17251             Try
17252                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
17253                 Return returnValue
17254             Finally
17255                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17256                     Me.Adapter.InsertCommand.Connection.Close
17257                 End If
17258             End Try
17259         End Function
17260         
17261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17263          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17264          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17265         Public Overloads Overridable Function Update(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String, ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
17266             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Inv_ID,Integer)
17267             If (InvoiceNo Is Nothing) Then
17268                 Throw New Global.System.ArgumentNullException("InvoiceNo")
17269             Else
17270                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(InvoiceNo,String)
17271             End If
17272             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(InvoiceDate,Date)
17273             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CustomerID,Integer)
17274             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
17275             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalPaid,Decimal)
17276             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Balance,Decimal)
17277             If (Remarks Is Nothing) Then
17278                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
17279             Else
17280                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Remarks,String)
17281             End If
17282             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Inv_ID,Integer)
17283             If (Original_InvoiceNo Is Nothing) Then
17284                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
17285             Else
17286                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_InvoiceNo,String)
17287             End If
17288             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_InvoiceDate,Date)
17289             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CustomerID,Integer)
17290             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GrandTotal,Decimal)
17291             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_TotalPaid,Decimal)
17292             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Balance,Decimal)
17293             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17294             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17295                         <> Global.System.Data.ConnectionState.Open) Then
17296                 Me.Adapter.UpdateCommand.Connection.Open
17297             End If
17298             Try
17299                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17300                 Return returnValue
17301             Finally
17302                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17303                     Me.Adapter.UpdateCommand.Connection.Close
17304                 End If
17305             End Try
17306         End Function
17307         
17308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17310          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17311          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17312         Public Overloads Overridable Function Update(ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String, ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
17313             Return Me.Update(Original_Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance, Remarks, Original_Inv_ID, Original_InvoiceNo, Original_InvoiceDate, Original_CustomerID, Original_GrandTotal, Original_TotalPaid, Original_Balance)
17314         End Function
17315     End Class
17316     
17317     '''<summary>
17318     '''Represents the connection and commands used to retrieve and save data.
17319     '''</summary>
17320     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17321      Global.System.ComponentModel.ToolboxItem(true), _
17322      Global.System.ComponentModel.DataObjectAttribute(true), _
17323      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17324         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17325      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17326     Partial Public Class InvoiceInfo1TableAdapter
17327         Inherits Global.System.ComponentModel.Component
17328         
17329         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17330         
17331         Private _connection As Global.System.Data.SqlClient.SqlConnection
17332         
17333         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17334         
17335         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17336         
17337         Private _clearBeforeFill As Boolean
17338         
17339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17341         Public Sub New()
17342             MyBase.New
17343             Me.ClearBeforeFill = true
17344         End Sub
17345         
17346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17348         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17349             Get
17350                 If (Me._adapter Is Nothing) Then
17351                     Me.InitAdapter
17352                 End If
17353                 Return Me._adapter
17354             End Get
17355         End Property
17356         
17357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17359         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17360             Get
17361                 If (Me._connection Is Nothing) Then
17362                     Me.InitConnection
17363                 End If
17364                 Return Me._connection
17365             End Get
17366             Set
17367                 Me._connection = value
17368                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17369                     Me.Adapter.InsertCommand.Connection = value
17370                 End If
17371                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17372                     Me.Adapter.DeleteCommand.Connection = value
17373                 End If
17374                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17375                     Me.Adapter.UpdateCommand.Connection = value
17376                 End If
17377                 Dim i As Integer = 0
17378                 Do While (i < Me.CommandCollection.Length)
17379                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17380                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17381                     End If
17382                     i = (i + 1)
17383                 Loop
17384             End Set
17385         End Property
17386         
17387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17389         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17390             Get
17391                 Return Me._transaction
17392             End Get
17393             Set
17394                 Me._transaction = value
17395                 Dim i As Integer = 0
17396                 Do While (i < Me.CommandCollection.Length)
17397                     Me.CommandCollection(i).Transaction = Me._transaction
17398                     i = (i + 1)
17399                 Loop
17400                 If ((Not (Me.Adapter) Is Nothing) _
17401                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17402                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17403                 End If
17404                 If ((Not (Me.Adapter) Is Nothing) _
17405                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17406                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17407                 End If
17408                 If ((Not (Me.Adapter) Is Nothing) _
17409                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17410                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17411                 End If
17412             End Set
17413         End Property
17414         
17415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17417         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17418             Get
17419                 If (Me._commandCollection Is Nothing) Then
17420                     Me.InitCommandCollection
17421                 End If
17422                 Return Me._commandCollection
17423             End Get
17424         End Property
17425         
17426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17428         Public Property ClearBeforeFill() As Boolean
17429             Get
17430                 Return Me._clearBeforeFill
17431             End Get
17432             Set
17433                 Me._clearBeforeFill = value
17434             End Set
17435         End Property
17436         
17437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17439         Private Sub InitAdapter()
17440             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17441             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17442             tableMapping.SourceTable = "Table"
17443             tableMapping.DataSetTable = "InvoiceInfo1"
17444             tableMapping.ColumnMappings.Add("Inv_ID", "Inv_ID")
17445             tableMapping.ColumnMappings.Add("InvoiceNo", "InvoiceNo")
17446             tableMapping.ColumnMappings.Add("InvoiceDate", "InvoiceDate")
17447             tableMapping.ColumnMappings.Add("ServiceID", "ServiceID")
17448             tableMapping.ColumnMappings.Add("RepairCharges", "RepairCharges")
17449             tableMapping.ColumnMappings.Add("Upfront", "Upfront")
17450             tableMapping.ColumnMappings.Add("ProductCharges", "ProductCharges")
17451             tableMapping.ColumnMappings.Add("ServiceTaxPer", "ServiceTaxPer")
17452             tableMapping.ColumnMappings.Add("ServiceTax", "ServiceTax")
17453             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
17454             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
17455             tableMapping.ColumnMappings.Add("Balance", "Balance")
17456             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
17457             Me._adapter.TableMappings.Add(tableMapping)
17458             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17459             Me._adapter.DeleteCommand.Connection = Me.Connection
17460             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[InvoiceInfo1] WHERE (([Inv_ID] = @Original_Inv_ID) AND ([Invoi"& _
17461                 "ceNo] = @Original_InvoiceNo) AND ([InvoiceDate] = @Original_InvoiceDate) AND ([S"& _
17462                 "erviceID] = @Original_ServiceID) AND ([RepairCharges] = @Original_RepairCharges)"& _
17463                 " AND ([Upfront] = @Original_Upfront) AND ([ProductCharges] = @Original_ProductCh"& _
17464                 "arges) AND ([ServiceTaxPer] = @Original_ServiceTaxPer) AND ([ServiceTax] = @Orig"& _
17465                 "inal_ServiceTax) AND ([GrandTotal] = @Original_GrandTotal) AND ([TotalPaid] = @O"& _
17466                 "riginal_TotalPaid) AND ([Balance] = @Original_Balance))"
17467             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17468             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17469             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17470             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17471             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17472             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17473             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17474             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17475             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17476             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17477             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17478             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17479             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17480             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17481             Me._adapter.InsertCommand.Connection = Me.Connection
17482             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[InvoiceInfo1] ([Inv_ID], [InvoiceNo], [InvoiceDate], [ServiceI"& _
17483                 "D], [RepairCharges], [Upfront], [ProductCharges], [ServiceTaxPer], [ServiceTax],"& _
17484                 " [GrandTotal], [TotalPaid], [Balance], [Remarks]) VALUES (@Inv_ID, @InvoiceNo, @"& _
17485                 "InvoiceDate, @ServiceID, @RepairCharges, @Upfront, @ProductCharges, @ServiceTaxP"& _
17486                 "er, @ServiceTax, @GrandTotal, @TotalPaid, @Balance, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, I"& _
17487                 "nvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfront, ProductCharges, Servic"& _
17488                 "eTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks FROM InvoiceInfo1 W"& _
17489                 "HERE (Inv_ID = @Inv_ID)"
17490             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17491             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17492             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17493             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17494             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17495             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17496             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17497             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17498             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17499             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17500             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17501             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17502             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17503             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17504             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17505             Me._adapter.UpdateCommand.Connection = Me.Connection
17506             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[InvoiceInfo1] SET [Inv_ID] = @Inv_ID, [InvoiceNo] = @InvoiceNo, [In"& _
17507                 "voiceDate] = @InvoiceDate, [ServiceID] = @ServiceID, [RepairCharges] = @RepairCh"& _
17508                 "arges, [Upfront] = @Upfront, [ProductCharges] = @ProductCharges, [ServiceTaxPer]"& _
17509                 " = @ServiceTaxPer, [ServiceTax] = @ServiceTax, [GrandTotal] = @GrandTotal, [Tota"& _
17510                 "lPaid] = @TotalPaid, [Balance] = @Balance, [Remarks] = @Remarks WHERE (([Inv_ID]"& _
17511                 " = @Original_Inv_ID) AND ([InvoiceNo] = @Original_InvoiceNo) AND ([InvoiceDate] "& _
17512                 "= @Original_InvoiceDate) AND ([ServiceID] = @Original_ServiceID) AND ([RepairCha"& _
17513                 "rges] = @Original_RepairCharges) AND ([Upfront] = @Original_Upfront) AND ([Produ"& _
17514                 "ctCharges] = @Original_ProductCharges) AND ([ServiceTaxPer] = @Original_ServiceT"& _
17515                 "axPer) AND ([ServiceTax] = @Original_ServiceTax) AND ([GrandTotal] = @Original_G"& _
17516                 "randTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([Balance] = @Original_Ba"& _
17517                 "lance));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, InvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfro"& _
17518                 "nt, ProductCharges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, R"& _
17519                 "emarks FROM InvoiceInfo1 WHERE (Inv_ID = @Inv_ID)"
17520             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17521             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17522             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17523             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17524             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17525             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17526             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17527             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17528             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17529             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17530             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17531             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17532             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17533             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17534             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17535             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17536             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17537             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17538             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17539             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17540             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17541             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17542             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17543             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17544             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17545             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17546         End Sub
17547         
17548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17550         Private Sub InitConnection()
17551             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17552             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17553         End Sub
17554         
17555         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17556          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17557         Private Sub InitCommandCollection()
17558             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17559             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17560             Me._commandCollection(0).Connection = Me.Connection
17561             Me._commandCollection(0).CommandText = "SELECT Inv_ID, InvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfront, Product"& _
17562                 "Charges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks FROM"& _
17563                 " dbo.InvoiceInfo1"
17564             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17565         End Sub
17566         
17567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17569          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17570          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17571         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.InvoiceInfo1DataTable) As Integer
17572             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17573             If (Me.ClearBeforeFill = true) Then
17574                 dataTable.Clear
17575             End If
17576             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
17577             Return returnValue
17578         End Function
17579         
17580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17582          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17583          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
17584         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.InvoiceInfo1DataTable
17585             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17586             Dim dataTable As SIS_DBDataSet1.InvoiceInfo1DataTable = New SIS_DBDataSet1.InvoiceInfo1DataTable()
17587             Me.Adapter.Fill(dataTable)
17588             Return dataTable
17589         End Function
17590         
17591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17593          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17594         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.InvoiceInfo1DataTable) As Integer
17595             Return Me.Adapter.Update(dataTable)
17596         End Function
17597         
17598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17600          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17601         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
17602             Return Me.Adapter.Update(dataSet, "InvoiceInfo1")
17603         End Function
17604         
17605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17607          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17608         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
17609             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
17610         End Function
17611         
17612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17614          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17615         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
17616             Return Me.Adapter.Update(dataRows)
17617         End Function
17618         
17619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17621          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17622          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
17623         Public Overloads Overridable Function Delete(ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_ServiceID As Integer, ByVal Original_RepairCharges As Decimal, ByVal Original_Upfront As Decimal, ByVal Original_ProductCharges As Decimal, ByVal Original_ServiceTaxPer As Decimal, ByVal Original_ServiceTax As Decimal, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
17624             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Inv_ID,Integer)
17625             If (Original_InvoiceNo Is Nothing) Then
17626                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
17627             Else
17628                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceNo,String)
17629             End If
17630             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_InvoiceDate,Date)
17631             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ServiceID,Integer)
17632             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_RepairCharges,Decimal)
17633             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Upfront,Decimal)
17634             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ProductCharges,Decimal)
17635             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ServiceTaxPer,Decimal)
17636             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ServiceTax,Decimal)
17637             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_GrandTotal,Decimal)
17638             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TotalPaid,Decimal)
17639             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_Balance,Decimal)
17640             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
17641             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17642                         <> Global.System.Data.ConnectionState.Open) Then
17643                 Me.Adapter.DeleteCommand.Connection.Open
17644             End If
17645             Try
17646                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
17647                 Return returnValue
17648             Finally
17649                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17650                     Me.Adapter.DeleteCommand.Connection.Close
17651                 End If
17652             End Try
17653         End Function
17654         
17655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17657          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17658          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
17659         Public Overloads Overridable Function Insert(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal ServiceID As Integer, ByVal RepairCharges As Decimal, ByVal Upfront As Decimal, ByVal ProductCharges As Decimal, ByVal ServiceTaxPer As Decimal, ByVal ServiceTax As Decimal, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As Integer
17660             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Inv_ID,Integer)
17661             If (InvoiceNo Is Nothing) Then
17662                 Throw New Global.System.ArgumentNullException("InvoiceNo")
17663             Else
17664                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(InvoiceNo,String)
17665             End If
17666             Me.Adapter.InsertCommand.Parameters(2).Value = CType(InvoiceDate,Date)
17667             Me.Adapter.InsertCommand.Parameters(3).Value = CType(ServiceID,Integer)
17668             Me.Adapter.InsertCommand.Parameters(4).Value = CType(RepairCharges,Decimal)
17669             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Upfront,Decimal)
17670             Me.Adapter.InsertCommand.Parameters(6).Value = CType(ProductCharges,Decimal)
17671             Me.Adapter.InsertCommand.Parameters(7).Value = CType(ServiceTaxPer,Decimal)
17672             Me.Adapter.InsertCommand.Parameters(8).Value = CType(ServiceTax,Decimal)
17673             Me.Adapter.InsertCommand.Parameters(9).Value = CType(GrandTotal,Decimal)
17674             Me.Adapter.InsertCommand.Parameters(10).Value = CType(TotalPaid,Decimal)
17675             Me.Adapter.InsertCommand.Parameters(11).Value = CType(Balance,Decimal)
17676             If (Remarks Is Nothing) Then
17677                 Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
17678             Else
17679                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(Remarks,String)
17680             End If
17681             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
17682             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17683                         <> Global.System.Data.ConnectionState.Open) Then
17684                 Me.Adapter.InsertCommand.Connection.Open
17685             End If
17686             Try
17687                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
17688                 Return returnValue
17689             Finally
17690                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17691                     Me.Adapter.InsertCommand.Connection.Close
17692                 End If
17693             End Try
17694         End Function
17695         
17696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17698          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17699          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17700         Public Overloads Overridable Function Update( _
17701                     ByVal Inv_ID As Integer, _
17702                     ByVal InvoiceNo As String, _
17703                     ByVal InvoiceDate As Date, _
17704                     ByVal ServiceID As Integer, _
17705                     ByVal RepairCharges As Decimal, _
17706                     ByVal Upfront As Decimal, _
17707                     ByVal ProductCharges As Decimal, _
17708                     ByVal ServiceTaxPer As Decimal, _
17709                     ByVal ServiceTax As Decimal, _
17710                     ByVal GrandTotal As Decimal, _
17711                     ByVal TotalPaid As Decimal, _
17712                     ByVal Balance As Decimal, _
17713                     ByVal Remarks As String, _
17714                     ByVal Original_Inv_ID As Integer, _
17715                     ByVal Original_InvoiceNo As String, _
17716                     ByVal Original_InvoiceDate As Date, _
17717                     ByVal Original_ServiceID As Integer, _
17718                     ByVal Original_RepairCharges As Decimal, _
17719                     ByVal Original_Upfront As Decimal, _
17720                     ByVal Original_ProductCharges As Decimal, _
17721                     ByVal Original_ServiceTaxPer As Decimal, _
17722                     ByVal Original_ServiceTax As Decimal, _
17723                     ByVal Original_GrandTotal As Decimal, _
17724                     ByVal Original_TotalPaid As Decimal, _
17725                     ByVal Original_Balance As Decimal) As Integer
17726             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Inv_ID,Integer)
17727             If (InvoiceNo Is Nothing) Then
17728                 Throw New Global.System.ArgumentNullException("InvoiceNo")
17729             Else
17730                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(InvoiceNo,String)
17731             End If
17732             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(InvoiceDate,Date)
17733             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ServiceID,Integer)
17734             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RepairCharges,Decimal)
17735             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Upfront,Decimal)
17736             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ProductCharges,Decimal)
17737             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ServiceTaxPer,Decimal)
17738             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ServiceTax,Decimal)
17739             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GrandTotal,Decimal)
17740             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TotalPaid,Decimal)
17741             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Balance,Decimal)
17742             If (Remarks Is Nothing) Then
17743                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
17744             Else
17745                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Remarks,String)
17746             End If
17747             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Inv_ID,Integer)
17748             If (Original_InvoiceNo Is Nothing) Then
17749                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
17750             Else
17751                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_InvoiceNo,String)
17752             End If
17753             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_InvoiceDate,Date)
17754             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ServiceID,Integer)
17755             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_RepairCharges,Decimal)
17756             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Upfront,Decimal)
17757             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ProductCharges,Decimal)
17758             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ServiceTaxPer,Decimal)
17759             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ServiceTax,Decimal)
17760             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GrandTotal,Decimal)
17761             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_TotalPaid,Decimal)
17762             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Balance,Decimal)
17763             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17764             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17765                         <> Global.System.Data.ConnectionState.Open) Then
17766                 Me.Adapter.UpdateCommand.Connection.Open
17767             End If
17768             Try
17769                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17770                 Return returnValue
17771             Finally
17772                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17773                     Me.Adapter.UpdateCommand.Connection.Close
17774                 End If
17775             End Try
17776         End Function
17777         
17778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17780          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17781          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17782         Public Overloads Overridable Function Update( _
17783                     ByVal InvoiceNo As String, _
17784                     ByVal InvoiceDate As Date, _
17785                     ByVal ServiceID As Integer, _
17786                     ByVal RepairCharges As Decimal, _
17787                     ByVal Upfront As Decimal, _
17788                     ByVal ProductCharges As Decimal, _
17789                     ByVal ServiceTaxPer As Decimal, _
17790                     ByVal ServiceTax As Decimal, _
17791                     ByVal GrandTotal As Decimal, _
17792                     ByVal TotalPaid As Decimal, _
17793                     ByVal Balance As Decimal, _
17794                     ByVal Remarks As String, _
17795                     ByVal Original_Inv_ID As Integer, _
17796                     ByVal Original_InvoiceNo As String, _
17797                     ByVal Original_InvoiceDate As Date, _
17798                     ByVal Original_ServiceID As Integer, _
17799                     ByVal Original_RepairCharges As Decimal, _
17800                     ByVal Original_Upfront As Decimal, _
17801                     ByVal Original_ProductCharges As Decimal, _
17802                     ByVal Original_ServiceTaxPer As Decimal, _
17803                     ByVal Original_ServiceTax As Decimal, _
17804                     ByVal Original_GrandTotal As Decimal, _
17805                     ByVal Original_TotalPaid As Decimal, _
17806                     ByVal Original_Balance As Decimal) As Integer
17807             Return Me.Update(Original_Inv_ID, InvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfront, ProductCharges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks, Original_Inv_ID, Original_InvoiceNo, Original_InvoiceDate, Original_ServiceID, Original_RepairCharges, Original_Upfront, Original_ProductCharges, Original_ServiceTaxPer, Original_ServiceTax, Original_GrandTotal, Original_TotalPaid, Original_Balance)
17808         End Function
17809     End Class
17810     
17811     '''<summary>
17812     '''Represents the connection and commands used to retrieve and save data.
17813     '''</summary>
17814     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17815      Global.System.ComponentModel.ToolboxItem(true), _
17816      Global.System.ComponentModel.DataObjectAttribute(true), _
17817      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17818         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17819      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17820     Partial Public Class LogsTableAdapter
17821         Inherits Global.System.ComponentModel.Component
17822         
17823         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17824         
17825         Private _connection As Global.System.Data.SqlClient.SqlConnection
17826         
17827         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17828         
17829         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17830         
17831         Private _clearBeforeFill As Boolean
17832         
17833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17835         Public Sub New()
17836             MyBase.New
17837             Me.ClearBeforeFill = true
17838         End Sub
17839         
17840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17842         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17843             Get
17844                 If (Me._adapter Is Nothing) Then
17845                     Me.InitAdapter
17846                 End If
17847                 Return Me._adapter
17848             End Get
17849         End Property
17850         
17851         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17852          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17853         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17854             Get
17855                 If (Me._connection Is Nothing) Then
17856                     Me.InitConnection
17857                 End If
17858                 Return Me._connection
17859             End Get
17860             Set
17861                 Me._connection = value
17862                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17863                     Me.Adapter.InsertCommand.Connection = value
17864                 End If
17865                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17866                     Me.Adapter.DeleteCommand.Connection = value
17867                 End If
17868                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17869                     Me.Adapter.UpdateCommand.Connection = value
17870                 End If
17871                 Dim i As Integer = 0
17872                 Do While (i < Me.CommandCollection.Length)
17873                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17874                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17875                     End If
17876                     i = (i + 1)
17877                 Loop
17878             End Set
17879         End Property
17880         
17881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17883         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17884             Get
17885                 Return Me._transaction
17886             End Get
17887             Set
17888                 Me._transaction = value
17889                 Dim i As Integer = 0
17890                 Do While (i < Me.CommandCollection.Length)
17891                     Me.CommandCollection(i).Transaction = Me._transaction
17892                     i = (i + 1)
17893                 Loop
17894                 If ((Not (Me.Adapter) Is Nothing) _
17895                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17896                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17897                 End If
17898                 If ((Not (Me.Adapter) Is Nothing) _
17899                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17900                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17901                 End If
17902                 If ((Not (Me.Adapter) Is Nothing) _
17903                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17904                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17905                 End If
17906             End Set
17907         End Property
17908         
17909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17911         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17912             Get
17913                 If (Me._commandCollection Is Nothing) Then
17914                     Me.InitCommandCollection
17915                 End If
17916                 Return Me._commandCollection
17917             End Get
17918         End Property
17919         
17920         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17921          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17922         Public Property ClearBeforeFill() As Boolean
17923             Get
17924                 Return Me._clearBeforeFill
17925             End Get
17926             Set
17927                 Me._clearBeforeFill = value
17928             End Set
17929         End Property
17930         
17931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17933         Private Sub InitAdapter()
17934             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17935             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17936             tableMapping.SourceTable = "Table"
17937             tableMapping.DataSetTable = "Logs"
17938             tableMapping.ColumnMappings.Add("ID", "ID")
17939             tableMapping.ColumnMappings.Add("UserID", "UserID")
17940             tableMapping.ColumnMappings.Add("Operation", "Operation")
17941             tableMapping.ColumnMappings.Add("Date", "Date")
17942             Me._adapter.TableMappings.Add(tableMapping)
17943             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17944             Me._adapter.DeleteCommand.Connection = Me.Connection
17945             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Logs] WHERE (([ID] = @Original_ID) AND ([UserID] = @Original_U"& _
17946                 "serID) AND ([Date] = @Original_Date))"
17947             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17948             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17949             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17950             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17951             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17952             Me._adapter.InsertCommand.Connection = Me.Connection
17953             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Logs] ([UserID], [Operation], [Date]) VALUES (@UserID, @Operat"& _
17954                 "ion, @Date);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, UserID, Operation, Date FROM Logs WHERE (ID = SCOPE_IDE"& _
17955                 "NTITY())"
17956             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17957             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17958             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17959             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17960             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17961             Me._adapter.UpdateCommand.Connection = Me.Connection
17962             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Logs] SET [UserID] = @UserID, [Operation] = @Operation, [Date] = @D"& _
17963                 "ate WHERE (([ID] = @Original_ID) AND ([UserID] = @Original_UserID) AND ([Date] ="& _
17964                 " @Original_Date));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, UserID, Operation, Date FROM Logs WHERE (ID = @ID"& _
17965                 ")"
17966             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17967             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17968             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17969             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17970             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17971             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17972             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17973             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17974         End Sub
17975         
17976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17978         Private Sub InitConnection()
17979             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17980             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17981         End Sub
17982         
17983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17985         Private Sub InitCommandCollection()
17986             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17987             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17988             Me._commandCollection(0).Connection = Me.Connection
17989             Me._commandCollection(0).CommandText = "SELECT ID, UserID, Operation, Date FROM dbo.Logs"
17990             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17991         End Sub
17992         
17993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17995          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17996          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17997         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.LogsDataTable) As Integer
17998             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17999             If (Me.ClearBeforeFill = true) Then
18000                 dataTable.Clear
18001             End If
18002             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18003             Return returnValue
18004         End Function
18005         
18006         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18007          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18008          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18009          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18010         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.LogsDataTable
18011             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18012             Dim dataTable As SIS_DBDataSet1.LogsDataTable = New SIS_DBDataSet1.LogsDataTable()
18013             Me.Adapter.Fill(dataTable)
18014             Return dataTable
18015         End Function
18016         
18017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18019          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18020         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.LogsDataTable) As Integer
18021             Return Me.Adapter.Update(dataTable)
18022         End Function
18023         
18024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18026          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18027         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
18028             Return Me.Adapter.Update(dataSet, "Logs")
18029         End Function
18030         
18031         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18032          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18033          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18034         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18035             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18036         End Function
18037         
18038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18040          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18041         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18042             Return Me.Adapter.Update(dataRows)
18043         End Function
18044         
18045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18047          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18048          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18049         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
18050             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
18051             If (Original_UserID Is Nothing) Then
18052                 Throw New Global.System.ArgumentNullException("Original_UserID")
18053             Else
18054                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserID,String)
18055             End If
18056             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
18057             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18058             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18059                         <> Global.System.Data.ConnectionState.Open) Then
18060                 Me.Adapter.DeleteCommand.Connection.Open
18061             End If
18062             Try
18063                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18064                 Return returnValue
18065             Finally
18066                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18067                     Me.Adapter.DeleteCommand.Connection.Close
18068                 End If
18069             End Try
18070         End Function
18071         
18072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18074          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18075          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18076         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date) As Integer
18077             If (UserID Is Nothing) Then
18078                 Throw New Global.System.ArgumentNullException("UserID")
18079             Else
18080                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
18081             End If
18082             If (Operation Is Nothing) Then
18083                 Throw New Global.System.ArgumentNullException("Operation")
18084             Else
18085                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Operation,String)
18086             End If
18087             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
18088             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18089             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18090                         <> Global.System.Data.ConnectionState.Open) Then
18091                 Me.Adapter.InsertCommand.Connection.Open
18092             End If
18093             Try
18094                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18095                 Return returnValue
18096             Finally
18097                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18098                     Me.Adapter.InsertCommand.Connection.Close
18099                 End If
18100             End Try
18101         End Function
18102         
18103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18105          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18106          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18107         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date, ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date, ByVal ID As Integer) As Integer
18108             If (UserID Is Nothing) Then
18109                 Throw New Global.System.ArgumentNullException("UserID")
18110             Else
18111                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
18112             End If
18113             If (Operation Is Nothing) Then
18114                 Throw New Global.System.ArgumentNullException("Operation")
18115             Else
18116                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Operation,String)
18117             End If
18118             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
18119             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
18120             If (Original_UserID Is Nothing) Then
18121                 Throw New Global.System.ArgumentNullException("Original_UserID")
18122             Else
18123                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID,String)
18124             End If
18125             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Date,Date)
18126             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ID,Integer)
18127             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18128             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18129                         <> Global.System.Data.ConnectionState.Open) Then
18130                 Me.Adapter.UpdateCommand.Connection.Open
18131             End If
18132             Try
18133                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18134                 Return returnValue
18135             Finally
18136                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18137                     Me.Adapter.UpdateCommand.Connection.Close
18138                 End If
18139             End Try
18140         End Function
18141         
18142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18144          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18145          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18146         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date, ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
18147             Return Me.Update(UserID, Operation, _Date, Original_ID, Original_UserID, Original_Date, Original_ID)
18148         End Function
18149     End Class
18150     
18151     '''<summary>
18152     '''Represents the connection and commands used to retrieve and save data.
18153     '''</summary>
18154     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18155      Global.System.ComponentModel.ToolboxItem(true), _
18156      Global.System.ComponentModel.DataObjectAttribute(true), _
18157      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18158         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18159      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18160     Partial Public Class ProductTableAdapter
18161         Inherits Global.System.ComponentModel.Component
18162         
18163         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18164         
18165         Private _connection As Global.System.Data.SqlClient.SqlConnection
18166         
18167         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18168         
18169         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18170         
18171         Private _clearBeforeFill As Boolean
18172         
18173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18175         Public Sub New()
18176             MyBase.New
18177             Me.ClearBeforeFill = true
18178         End Sub
18179         
18180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18182         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18183             Get
18184                 If (Me._adapter Is Nothing) Then
18185                     Me.InitAdapter
18186                 End If
18187                 Return Me._adapter
18188             End Get
18189         End Property
18190         
18191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18193         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18194             Get
18195                 If (Me._connection Is Nothing) Then
18196                     Me.InitConnection
18197                 End If
18198                 Return Me._connection
18199             End Get
18200             Set
18201                 Me._connection = value
18202                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18203                     Me.Adapter.InsertCommand.Connection = value
18204                 End If
18205                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18206                     Me.Adapter.DeleteCommand.Connection = value
18207                 End If
18208                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18209                     Me.Adapter.UpdateCommand.Connection = value
18210                 End If
18211                 Dim i As Integer = 0
18212                 Do While (i < Me.CommandCollection.Length)
18213                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18214                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18215                     End If
18216                     i = (i + 1)
18217                 Loop
18218             End Set
18219         End Property
18220         
18221         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18222          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18223         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
18224             Get
18225                 Return Me._transaction
18226             End Get
18227             Set
18228                 Me._transaction = value
18229                 Dim i As Integer = 0
18230                 Do While (i < Me.CommandCollection.Length)
18231                     Me.CommandCollection(i).Transaction = Me._transaction
18232                     i = (i + 1)
18233                 Loop
18234                 If ((Not (Me.Adapter) Is Nothing) _
18235                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
18236                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
18237                 End If
18238                 If ((Not (Me.Adapter) Is Nothing) _
18239                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
18240                     Me.Adapter.InsertCommand.Transaction = Me._transaction
18241                 End If
18242                 If ((Not (Me.Adapter) Is Nothing) _
18243                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
18244                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
18245                 End If
18246             End Set
18247         End Property
18248         
18249         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18250          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18251         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18252             Get
18253                 If (Me._commandCollection Is Nothing) Then
18254                     Me.InitCommandCollection
18255                 End If
18256                 Return Me._commandCollection
18257             End Get
18258         End Property
18259         
18260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18262         Public Property ClearBeforeFill() As Boolean
18263             Get
18264                 Return Me._clearBeforeFill
18265             End Get
18266             Set
18267                 Me._clearBeforeFill = value
18268             End Set
18269         End Property
18270         
18271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18273         Private Sub InitAdapter()
18274             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18275             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18276             tableMapping.SourceTable = "Table"
18277             tableMapping.DataSetTable = "Product"
18278             tableMapping.ColumnMappings.Add("PID", "PID")
18279             tableMapping.ColumnMappings.Add("ProductCode", "ProductCode")
18280             tableMapping.ColumnMappings.Add("ProductName", "ProductName")
18281             tableMapping.ColumnMappings.Add("SubCategoryID", "SubCategoryID")
18282             tableMapping.ColumnMappings.Add("Description", "Description")
18283             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
18284             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
18285             tableMapping.ColumnMappings.Add("Discount", "Discount")
18286             tableMapping.ColumnMappings.Add("VAT", "VAT")
18287             tableMapping.ColumnMappings.Add("ReorderPoint", "ReorderPoint")
18288             Me._adapter.TableMappings.Add(tableMapping)
18289             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18290             Me._adapter.DeleteCommand.Connection = Me.Connection
18291             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Product] WHERE (([PID] = @Original_PID) AND ([ProductCode] = @"& _
18292                 "Original_ProductCode) AND ([ProductName] = @Original_ProductName) AND ([SubCateg"& _
18293                 "oryID] = @Original_SubCategoryID) AND ([CostPrice] = @Original_CostPrice) AND (["& _
18294                 "SellingPrice] = @Original_SellingPrice) AND ([Discount] = @Original_Discount) AN"& _
18295                 "D ([VAT] = @Original_VAT) AND ([ReorderPoint] = @Original_ReorderPoint))"
18296             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18297             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18298             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18299             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18300             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18301             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18302             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18303             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18304             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18305             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18306             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18307             Me._adapter.InsertCommand.Connection = Me.Connection
18308             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Product] ([PID], [ProductCode], [ProductName], [SubCategoryID]"& _
18309                 ", [Description], [CostPrice], [SellingPrice], [Discount], [VAT], [ReorderPoint])"& _
18310                 " VALUES (@PID, @ProductCode, @ProductName, @SubCategoryID, @Description, @CostPr"& _
18311                 "ice, @SellingPrice, @Discount, @VAT, @ReorderPoint);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PID, ProductCode, P"& _
18312                 "roductName, SubCategoryID, Description, CostPrice, SellingPrice, Discount, VAT, "& _
18313                 "ReorderPoint FROM Product WHERE (PID = @PID)"
18314             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18315             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18316             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18317             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18318             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18319             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18320             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18321             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18322             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18323             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18324             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18325             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18326             Me._adapter.UpdateCommand.Connection = Me.Connection
18327             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Product] SET [PID] = @PID, [ProductCode] = @ProductCode, [ProductNa"& _
18328                 "me] = @ProductName, [SubCategoryID] = @SubCategoryID, [Description] = @Descripti"& _
18329                 "on, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Discount] = @Disc"& _
18330                 "ount, [VAT] = @VAT, [ReorderPoint] = @ReorderPoint WHERE (([PID] = @Original_PID"& _
18331                 ") AND ([ProductCode] = @Original_ProductCode) AND ([ProductName] = @Original_Pro"& _
18332                 "ductName) AND ([SubCategoryID] = @Original_SubCategoryID) AND ([CostPrice] = @Or"& _
18333                 "iginal_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) AND ([Discount] "& _
18334                 "= @Original_Discount) AND ([VAT] = @Original_VAT) AND ([ReorderPoint] = @Origina"& _
18335                 "l_ReorderPoint));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PID, ProductCode, ProductName, SubCategoryID, Descript"& _
18336                 "ion, CostPrice, SellingPrice, Discount, VAT, ReorderPoint FROM Product WHERE (PI"& _
18337                 "D = @PID)"
18338             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18339             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18340             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18341             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18342             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18343             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18344             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18345             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18346             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18347             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18348             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18349             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18350             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18351             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18352             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18353             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18354             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18355             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18356             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18357             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18358         End Sub
18359         
18360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18362         Private Sub InitConnection()
18363             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18364             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18365         End Sub
18366         
18367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18369         Private Sub InitCommandCollection()
18370             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18371             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18372             Me._commandCollection(0).Connection = Me.Connection
18373             Me._commandCollection(0).CommandText = "SELECT PID, ProductCode, ProductName, SubCategoryID, Description, CostPrice, Sell"& _
18374                 "ingPrice, Discount, VAT, ReorderPoint FROM dbo.Product"
18375             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18376         End Sub
18377         
18378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18380          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18381          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18382         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.ProductDataTable) As Integer
18383             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18384             If (Me.ClearBeforeFill = true) Then
18385                 dataTable.Clear
18386             End If
18387             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18388             Return returnValue
18389         End Function
18390         
18391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18393          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18394          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18395         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.ProductDataTable
18396             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18397             Dim dataTable As SIS_DBDataSet1.ProductDataTable = New SIS_DBDataSet1.ProductDataTable()
18398             Me.Adapter.Fill(dataTable)
18399             Return dataTable
18400         End Function
18401         
18402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18404          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18405         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.ProductDataTable) As Integer
18406             Return Me.Adapter.Update(dataTable)
18407         End Function
18408         
18409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18411          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18412         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
18413             Return Me.Adapter.Update(dataSet, "Product")
18414         End Function
18415         
18416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18418          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18419         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18420             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18421         End Function
18422         
18423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18425          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18426         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18427             Return Me.Adapter.Update(dataRows)
18428         End Function
18429         
18430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18432          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18433          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18434         Public Overloads Overridable Function Delete(ByVal Original_PID As Integer, ByVal Original_ProductCode As String, ByVal Original_ProductName As String, ByVal Original_SubCategoryID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VAT As Decimal, ByVal Original_ReorderPoint As Integer) As Integer
18435             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PID,Integer)
18436             If (Original_ProductCode Is Nothing) Then
18437                 Throw New Global.System.ArgumentNullException("Original_ProductCode")
18438             Else
18439                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ProductCode,String)
18440             End If
18441             If (Original_ProductName Is Nothing) Then
18442                 Throw New Global.System.ArgumentNullException("Original_ProductName")
18443             Else
18444                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductName,String)
18445             End If
18446             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SubCategoryID,Integer)
18447             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CostPrice,Decimal)
18448             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SellingPrice,Decimal)
18449             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Discount,Decimal)
18450             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_VAT,Decimal)
18451             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ReorderPoint,Integer)
18452             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18453             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18454                         <> Global.System.Data.ConnectionState.Open) Then
18455                 Me.Adapter.DeleteCommand.Connection.Open
18456             End If
18457             Try
18458                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18459                 Return returnValue
18460             Finally
18461                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18462                     Me.Adapter.DeleteCommand.Connection.Close
18463                 End If
18464             End Try
18465         End Function
18466         
18467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18469          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18470          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18471         Public Overloads Overridable Function Insert(ByVal PID As Integer, ByVal ProductCode As String, ByVal ProductName As String, ByVal SubCategoryID As Integer, ByVal Description As String, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Discount As Decimal, ByVal VAT As Decimal, ByVal ReorderPoint As Integer) As Integer
18472             Me.Adapter.InsertCommand.Parameters(0).Value = CType(PID,Integer)
18473             If (ProductCode Is Nothing) Then
18474                 Throw New Global.System.ArgumentNullException("ProductCode")
18475             Else
18476                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductCode,String)
18477             End If
18478             If (ProductName Is Nothing) Then
18479                 Throw New Global.System.ArgumentNullException("ProductName")
18480             Else
18481                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ProductName,String)
18482             End If
18483             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SubCategoryID,Integer)
18484             If (Description Is Nothing) Then
18485                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
18486             Else
18487                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Description,String)
18488             End If
18489             Me.Adapter.InsertCommand.Parameters(5).Value = CType(CostPrice,Decimal)
18490             Me.Adapter.InsertCommand.Parameters(6).Value = CType(SellingPrice,Decimal)
18491             Me.Adapter.InsertCommand.Parameters(7).Value = CType(Discount,Decimal)
18492             Me.Adapter.InsertCommand.Parameters(8).Value = CType(VAT,Decimal)
18493             Me.Adapter.InsertCommand.Parameters(9).Value = CType(ReorderPoint,Integer)
18494             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18495             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18496                         <> Global.System.Data.ConnectionState.Open) Then
18497                 Me.Adapter.InsertCommand.Connection.Open
18498             End If
18499             Try
18500                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18501                 Return returnValue
18502             Finally
18503                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18504                     Me.Adapter.InsertCommand.Connection.Close
18505                 End If
18506             End Try
18507         End Function
18508         
18509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18511          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18512          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18513         Public Overloads Overridable Function Update( _
18514                     ByVal PID As Integer, _
18515                     ByVal ProductCode As String, _
18516                     ByVal ProductName As String, _
18517                     ByVal SubCategoryID As Integer, _
18518                     ByVal Description As String, _
18519                     ByVal CostPrice As Decimal, _
18520                     ByVal SellingPrice As Decimal, _
18521                     ByVal Discount As Decimal, _
18522                     ByVal VAT As Decimal, _
18523                     ByVal ReorderPoint As Integer, _
18524                     ByVal Original_PID As Integer, _
18525                     ByVal Original_ProductCode As String, _
18526                     ByVal Original_ProductName As String, _
18527                     ByVal Original_SubCategoryID As Integer, _
18528                     ByVal Original_CostPrice As Decimal, _
18529                     ByVal Original_SellingPrice As Decimal, _
18530                     ByVal Original_Discount As Decimal, _
18531                     ByVal Original_VAT As Decimal, _
18532                     ByVal Original_ReorderPoint As Integer) As Integer
18533             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PID,Integer)
18534             If (ProductCode Is Nothing) Then
18535                 Throw New Global.System.ArgumentNullException("ProductCode")
18536             Else
18537                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductCode,String)
18538             End If
18539             If (ProductName Is Nothing) Then
18540                 Throw New Global.System.ArgumentNullException("ProductName")
18541             Else
18542                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ProductName,String)
18543             End If
18544             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SubCategoryID,Integer)
18545             If (Description Is Nothing) Then
18546                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
18547             Else
18548                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Description,String)
18549             End If
18550             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CostPrice,Decimal)
18551             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SellingPrice,Decimal)
18552             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Discount,Decimal)
18553             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VAT,Decimal)
18554             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ReorderPoint,Integer)
18555             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_PID,Integer)
18556             If (Original_ProductCode Is Nothing) Then
18557                 Throw New Global.System.ArgumentNullException("Original_ProductCode")
18558             Else
18559                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ProductCode,String)
18560             End If
18561             If (Original_ProductName Is Nothing) Then
18562                 Throw New Global.System.ArgumentNullException("Original_ProductName")
18563             Else
18564                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ProductName,String)
18565             End If
18566             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_SubCategoryID,Integer)
18567             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CostPrice,Decimal)
18568             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SellingPrice,Decimal)
18569             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Discount,Decimal)
18570             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_VAT,Decimal)
18571             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ReorderPoint,Integer)
18572             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18573             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18574                         <> Global.System.Data.ConnectionState.Open) Then
18575                 Me.Adapter.UpdateCommand.Connection.Open
18576             End If
18577             Try
18578                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18579                 Return returnValue
18580             Finally
18581                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18582                     Me.Adapter.UpdateCommand.Connection.Close
18583                 End If
18584             End Try
18585         End Function
18586         
18587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18589          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18590          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18591         Public Overloads Overridable Function Update( _
18592                     ByVal ProductCode As String, _
18593                     ByVal ProductName As String, _
18594                     ByVal SubCategoryID As Integer, _
18595                     ByVal Description As String, _
18596                     ByVal CostPrice As Decimal, _
18597                     ByVal SellingPrice As Decimal, _
18598                     ByVal Discount As Decimal, _
18599                     ByVal VAT As Decimal, _
18600                     ByVal ReorderPoint As Integer, _
18601                     ByVal Original_PID As Integer, _
18602                     ByVal Original_ProductCode As String, _
18603                     ByVal Original_ProductName As String, _
18604                     ByVal Original_SubCategoryID As Integer, _
18605                     ByVal Original_CostPrice As Decimal, _
18606                     ByVal Original_SellingPrice As Decimal, _
18607                     ByVal Original_Discount As Decimal, _
18608                     ByVal Original_VAT As Decimal, _
18609                     ByVal Original_ReorderPoint As Integer) As Integer
18610             Return Me.Update(Original_PID, ProductCode, ProductName, SubCategoryID, Description, CostPrice, SellingPrice, Discount, VAT, ReorderPoint, Original_PID, Original_ProductCode, Original_ProductName, Original_SubCategoryID, Original_CostPrice, Original_SellingPrice, Original_Discount, Original_VAT, Original_ReorderPoint)
18611         End Function
18612     End Class
18613     
18614     '''<summary>
18615     '''Represents the connection and commands used to retrieve and save data.
18616     '''</summary>
18617     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18618      Global.System.ComponentModel.ToolboxItem(true), _
18619      Global.System.ComponentModel.DataObjectAttribute(true), _
18620      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18621         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18622      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18623     Partial Public Class Product_JoinTableAdapter
18624         Inherits Global.System.ComponentModel.Component
18625         
18626         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18627         
18628         Private _connection As Global.System.Data.SqlClient.SqlConnection
18629         
18630         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18631         
18632         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18633         
18634         Private _clearBeforeFill As Boolean
18635         
18636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18638         Public Sub New()
18639             MyBase.New
18640             Me.ClearBeforeFill = true
18641         End Sub
18642         
18643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18645         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18646             Get
18647                 If (Me._adapter Is Nothing) Then
18648                     Me.InitAdapter
18649                 End If
18650                 Return Me._adapter
18651             End Get
18652         End Property
18653         
18654         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18655          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18656         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18657             Get
18658                 If (Me._connection Is Nothing) Then
18659                     Me.InitConnection
18660                 End If
18661                 Return Me._connection
18662             End Get
18663             Set
18664                 Me._connection = value
18665                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18666                     Me.Adapter.InsertCommand.Connection = value
18667                 End If
18668                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18669                     Me.Adapter.DeleteCommand.Connection = value
18670                 End If
18671                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18672                     Me.Adapter.UpdateCommand.Connection = value
18673                 End If
18674                 Dim i As Integer = 0
18675                 Do While (i < Me.CommandCollection.Length)
18676                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18677                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18678                     End If
18679                     i = (i + 1)
18680                 Loop
18681             End Set
18682         End Property
18683         
18684         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18685          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18686         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
18687             Get
18688                 Return Me._transaction
18689             End Get
18690             Set
18691                 Me._transaction = value
18692                 Dim i As Integer = 0
18693                 Do While (i < Me.CommandCollection.Length)
18694                     Me.CommandCollection(i).Transaction = Me._transaction
18695                     i = (i + 1)
18696                 Loop
18697                 If ((Not (Me.Adapter) Is Nothing) _
18698                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
18699                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
18700                 End If
18701                 If ((Not (Me.Adapter) Is Nothing) _
18702                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
18703                     Me.Adapter.InsertCommand.Transaction = Me._transaction
18704                 End If
18705                 If ((Not (Me.Adapter) Is Nothing) _
18706                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
18707                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
18708                 End If
18709             End Set
18710         End Property
18711         
18712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18714         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18715             Get
18716                 If (Me._commandCollection Is Nothing) Then
18717                     Me.InitCommandCollection
18718                 End If
18719                 Return Me._commandCollection
18720             End Get
18721         End Property
18722         
18723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18725         Public Property ClearBeforeFill() As Boolean
18726             Get
18727                 Return Me._clearBeforeFill
18728             End Get
18729             Set
18730                 Me._clearBeforeFill = value
18731             End Set
18732         End Property
18733         
18734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18736         Private Sub InitAdapter()
18737             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18738             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18739             tableMapping.SourceTable = "Table"
18740             tableMapping.DataSetTable = "Product_Join"
18741             tableMapping.ColumnMappings.Add("Id", "Id")
18742             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
18743             tableMapping.ColumnMappings.Add("Photo", "Photo")
18744             Me._adapter.TableMappings.Add(tableMapping)
18745             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18746             Me._adapter.DeleteCommand.Connection = Me.Connection
18747             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Product_Join] WHERE (([Id] = @Original_Id) AND ([ProductID] = "& _
18748                 "@Original_ProductID))"
18749             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18750             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18751             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18752             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18753             Me._adapter.InsertCommand.Connection = Me.Connection
18754             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Product_Join] ([ProductID], [Photo]) VALUES (@ProductID, @Phot"& _
18755                 "o);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ProductID, Photo FROM Product_Join WHERE (Id = SCOPE_IDENTITY())"& _
18756                 ""
18757             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18758             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18759             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18760             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18761             Me._adapter.UpdateCommand.Connection = Me.Connection
18762             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Product_Join] SET [ProductID] = @ProductID, [Photo] = @Photo WHERE "& _
18763                 "(([Id] = @Original_Id) AND ([ProductID] = @Original_ProductID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, Pro"& _
18764                 "ductID, Photo FROM Product_Join WHERE (Id = @Id)"
18765             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18766             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18767             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18768             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18769             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18770             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18771         End Sub
18772         
18773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18775         Private Sub InitConnection()
18776             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18777             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18778         End Sub
18779         
18780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18782         Private Sub InitCommandCollection()
18783             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18784             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18785             Me._commandCollection(0).Connection = Me.Connection
18786             Me._commandCollection(0).CommandText = "SELECT Id, ProductID, Photo FROM dbo.Product_Join"
18787             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18788         End Sub
18789         
18790         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18791          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18792          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18793          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18794         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Product_JoinDataTable) As Integer
18795             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18796             If (Me.ClearBeforeFill = true) Then
18797                 dataTable.Clear
18798             End If
18799             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18800             Return returnValue
18801         End Function
18802         
18803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18805          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18806          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18807         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Product_JoinDataTable
18808             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18809             Dim dataTable As SIS_DBDataSet1.Product_JoinDataTable = New SIS_DBDataSet1.Product_JoinDataTable()
18810             Me.Adapter.Fill(dataTable)
18811             Return dataTable
18812         End Function
18813         
18814         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18815          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18816          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18817         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Product_JoinDataTable) As Integer
18818             Return Me.Adapter.Update(dataTable)
18819         End Function
18820         
18821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18823          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18824         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
18825             Return Me.Adapter.Update(dataSet, "Product_Join")
18826         End Function
18827         
18828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18830          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18831         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18832             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18833         End Function
18834         
18835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18837          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18838         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18839             Return Me.Adapter.Update(dataRows)
18840         End Function
18841         
18842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18844          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18845          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18846         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_ProductID As Integer) As Integer
18847             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
18848             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ProductID,Integer)
18849             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18850             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18851                         <> Global.System.Data.ConnectionState.Open) Then
18852                 Me.Adapter.DeleteCommand.Connection.Open
18853             End If
18854             Try
18855                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18856                 Return returnValue
18857             Finally
18858                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18859                     Me.Adapter.DeleteCommand.Connection.Close
18860                 End If
18861             End Try
18862         End Function
18863         
18864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18866          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18867          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18868         Public Overloads Overridable Function Insert(ByVal ProductID As Integer, ByVal Photo() As Byte) As Integer
18869             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductID,Integer)
18870             If (Photo Is Nothing) Then
18871                 Throw New Global.System.ArgumentNullException("Photo")
18872             Else
18873                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Photo,Byte())
18874             End If
18875             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18876             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18877                         <> Global.System.Data.ConnectionState.Open) Then
18878                 Me.Adapter.InsertCommand.Connection.Open
18879             End If
18880             Try
18881                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18882                 Return returnValue
18883             Finally
18884                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18885                     Me.Adapter.InsertCommand.Connection.Close
18886                 End If
18887             End Try
18888         End Function
18889         
18890         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18891          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18892          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18893          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18894         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Photo() As Byte, ByVal Original_Id As Integer, ByVal Original_ProductID As Integer, ByVal Id As Integer) As Integer
18895             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductID,Integer)
18896             If (Photo Is Nothing) Then
18897                 Throw New Global.System.ArgumentNullException("Photo")
18898             Else
18899                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Photo,Byte())
18900             End If
18901             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
18902             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ProductID,Integer)
18903             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Id,Integer)
18904             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18905             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18906                         <> Global.System.Data.ConnectionState.Open) Then
18907                 Me.Adapter.UpdateCommand.Connection.Open
18908             End If
18909             Try
18910                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18911                 Return returnValue
18912             Finally
18913                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18914                     Me.Adapter.UpdateCommand.Connection.Close
18915                 End If
18916             End Try
18917         End Function
18918         
18919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18921          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18922          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18923         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Photo() As Byte, ByVal Original_Id As Integer, ByVal Original_ProductID As Integer) As Integer
18924             Return Me.Update(ProductID, Photo, Original_Id, Original_ProductID, Original_Id)
18925         End Function
18926     End Class
18927     
18928     '''<summary>
18929     '''Represents the connection and commands used to retrieve and save data.
18930     '''</summary>
18931     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18932      Global.System.ComponentModel.ToolboxItem(true), _
18933      Global.System.ComponentModel.DataObjectAttribute(true), _
18934      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18935         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18936      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18937     Partial Public Class QuotationTableAdapter
18938         Inherits Global.System.ComponentModel.Component
18939         
18940         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18941         
18942         Private _connection As Global.System.Data.SqlClient.SqlConnection
18943         
18944         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18945         
18946         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18947         
18948         Private _clearBeforeFill As Boolean
18949         
18950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18952         Public Sub New()
18953             MyBase.New
18954             Me.ClearBeforeFill = true
18955         End Sub
18956         
18957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18959         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18960             Get
18961                 If (Me._adapter Is Nothing) Then
18962                     Me.InitAdapter
18963                 End If
18964                 Return Me._adapter
18965             End Get
18966         End Property
18967         
18968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18970         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18971             Get
18972                 If (Me._connection Is Nothing) Then
18973                     Me.InitConnection
18974                 End If
18975                 Return Me._connection
18976             End Get
18977             Set
18978                 Me._connection = value
18979                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18980                     Me.Adapter.InsertCommand.Connection = value
18981                 End If
18982                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18983                     Me.Adapter.DeleteCommand.Connection = value
18984                 End If
18985                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18986                     Me.Adapter.UpdateCommand.Connection = value
18987                 End If
18988                 Dim i As Integer = 0
18989                 Do While (i < Me.CommandCollection.Length)
18990                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18991                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18992                     End If
18993                     i = (i + 1)
18994                 Loop
18995             End Set
18996         End Property
18997         
18998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19000         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
19001             Get
19002                 Return Me._transaction
19003             End Get
19004             Set
19005                 Me._transaction = value
19006                 Dim i As Integer = 0
19007                 Do While (i < Me.CommandCollection.Length)
19008                     Me.CommandCollection(i).Transaction = Me._transaction
19009                     i = (i + 1)
19010                 Loop
19011                 If ((Not (Me.Adapter) Is Nothing) _
19012                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
19013                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
19014                 End If
19015                 If ((Not (Me.Adapter) Is Nothing) _
19016                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
19017                     Me.Adapter.InsertCommand.Transaction = Me._transaction
19018                 End If
19019                 If ((Not (Me.Adapter) Is Nothing) _
19020                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
19021                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
19022                 End If
19023             End Set
19024         End Property
19025         
19026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19028         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
19029             Get
19030                 If (Me._commandCollection Is Nothing) Then
19031                     Me.InitCommandCollection
19032                 End If
19033                 Return Me._commandCollection
19034             End Get
19035         End Property
19036         
19037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19039         Public Property ClearBeforeFill() As Boolean
19040             Get
19041                 Return Me._clearBeforeFill
19042             End Get
19043             Set
19044                 Me._clearBeforeFill = value
19045             End Set
19046         End Property
19047         
19048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19050         Private Sub InitAdapter()
19051             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
19052             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
19053             tableMapping.SourceTable = "Table"
19054             tableMapping.DataSetTable = "Quotation"
19055             tableMapping.ColumnMappings.Add("Q_ID", "Q_ID")
19056             tableMapping.ColumnMappings.Add("QuotationNo", "QuotationNo")
19057             tableMapping.ColumnMappings.Add("Date", "Date")
19058             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
19059             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
19060             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
19061             Me._adapter.TableMappings.Add(tableMapping)
19062             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
19063             Me._adapter.DeleteCommand.Connection = Me.Connection
19064             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Quotation] WHERE (([Q_ID] = @Original_Q_ID) AND ([QuotationNo]"& _
19065                 " = @Original_QuotationNo) AND ([Date] = @Original_Date) AND ([CustomerID] = @Ori"& _
19066                 "ginal_CustomerID) AND ([GrandTotal] = @Original_GrandTotal))"
19067             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
19068             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19069             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19070             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19071             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19072             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19073             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
19074             Me._adapter.InsertCommand.Connection = Me.Connection
19075             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Quotation] ([Q_ID], [QuotationNo], [Date], [CustomerID], [Gran"& _
19076                 "dTotal], [Remarks]) VALUES (@Q_ID, @QuotationNo, @Date, @CustomerID, @GrandTotal"& _
19077                 ", @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Q_ID, QuotationNo, Date, CustomerID, GrandTotal, Remarks FR"& _
19078                 "OM Quotation WHERE (Q_ID = @Q_ID)"
19079             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
19080             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19081             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19082             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19083             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19084             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19085             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19086             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
19087             Me._adapter.UpdateCommand.Connection = Me.Connection
19088             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Quotation] SET [Q_ID] = @Q_ID, [QuotationNo] = @QuotationNo, [Date]"& _
19089                 " = @Date, [CustomerID] = @CustomerID, [GrandTotal] = @GrandTotal, [Remarks] = @R"& _
19090                 "emarks WHERE (([Q_ID] = @Original_Q_ID) AND ([QuotationNo] = @Original_Quotation"& _
19091                 "No) AND ([Date] = @Original_Date) AND ([CustomerID] = @Original_CustomerID) AND "& _
19092                 "([GrandTotal] = @Original_GrandTotal));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Q_ID, QuotationNo, Date, Custome"& _
19093                 "rID, GrandTotal, Remarks FROM Quotation WHERE (Q_ID = @Q_ID)"
19094             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
19095             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19096             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19097             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19098             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19099             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19100             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19101             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19102             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19103             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19104             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19105             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19106         End Sub
19107         
19108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19110         Private Sub InitConnection()
19111             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
19112             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
19113         End Sub
19114         
19115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19117         Private Sub InitCommandCollection()
19118             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
19119             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
19120             Me._commandCollection(0).Connection = Me.Connection
19121             Me._commandCollection(0).CommandText = "SELECT Q_ID, QuotationNo, Date, CustomerID, GrandTotal, Remarks FROM dbo.Quotatio"& _
19122                 "n"
19123             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
19124         End Sub
19125         
19126         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19127          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19128          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19129          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
19130         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.QuotationDataTable) As Integer
19131             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19132             If (Me.ClearBeforeFill = true) Then
19133                 dataTable.Clear
19134             End If
19135             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
19136             Return returnValue
19137         End Function
19138         
19139         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19140          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19141          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19142          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
19143         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.QuotationDataTable
19144             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19145             Dim dataTable As SIS_DBDataSet1.QuotationDataTable = New SIS_DBDataSet1.QuotationDataTable()
19146             Me.Adapter.Fill(dataTable)
19147             Return dataTable
19148         End Function
19149         
19150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19152          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19153         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.QuotationDataTable) As Integer
19154             Return Me.Adapter.Update(dataTable)
19155         End Function
19156         
19157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19159          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19160         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
19161             Return Me.Adapter.Update(dataSet, "Quotation")
19162         End Function
19163         
19164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19166          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19167         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
19168             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
19169         End Function
19170         
19171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19173          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19174         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
19175             Return Me.Adapter.Update(dataRows)
19176         End Function
19177         
19178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19180          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19181          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
19182         Public Overloads Overridable Function Delete(ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
19183             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Q_ID,Integer)
19184             If (Original_QuotationNo Is Nothing) Then
19185                 Throw New Global.System.ArgumentNullException("Original_QuotationNo")
19186             Else
19187                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QuotationNo,String)
19188             End If
19189             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
19190             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CustomerID,Integer)
19191             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
19192             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
19193             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19194                         <> Global.System.Data.ConnectionState.Open) Then
19195                 Me.Adapter.DeleteCommand.Connection.Open
19196             End If
19197             Try
19198                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
19199                 Return returnValue
19200             Finally
19201                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19202                     Me.Adapter.DeleteCommand.Connection.Close
19203                 End If
19204             End Try
19205         End Function
19206         
19207         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19208          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19209          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19210          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
19211         Public Overloads Overridable Function Insert(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String) As Integer
19212             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Q_ID,Integer)
19213             If (QuotationNo Is Nothing) Then
19214                 Throw New Global.System.ArgumentNullException("QuotationNo")
19215             Else
19216                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(QuotationNo,String)
19217             End If
19218             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
19219             Me.Adapter.InsertCommand.Parameters(3).Value = CType(CustomerID,Integer)
19220             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
19221             If (Remarks Is Nothing) Then
19222                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
19223             Else
19224                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Remarks,String)
19225             End If
19226             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
19227             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19228                         <> Global.System.Data.ConnectionState.Open) Then
19229                 Me.Adapter.InsertCommand.Connection.Open
19230             End If
19231             Try
19232                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
19233                 Return returnValue
19234             Finally
19235                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19236                     Me.Adapter.InsertCommand.Connection.Close
19237                 End If
19238             End Try
19239         End Function
19240         
19241         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19242          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19243          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19244          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19245         Public Overloads Overridable Function Update(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String, ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
19246             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Q_ID,Integer)
19247             If (QuotationNo Is Nothing) Then
19248                 Throw New Global.System.ArgumentNullException("QuotationNo")
19249             Else
19250                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(QuotationNo,String)
19251             End If
19252             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
19253             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CustomerID,Integer)
19254             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
19255             If (Remarks Is Nothing) Then
19256                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
19257             Else
19258                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Remarks,String)
19259             End If
19260             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Q_ID,Integer)
19261             If (Original_QuotationNo Is Nothing) Then
19262                 Throw New Global.System.ArgumentNullException("Original_QuotationNo")
19263             Else
19264                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_QuotationNo,String)
19265             End If
19266             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Date,Date)
19267             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CustomerID,Integer)
19268             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GrandTotal,Decimal)
19269             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19270             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19271                         <> Global.System.Data.ConnectionState.Open) Then
19272                 Me.Adapter.UpdateCommand.Connection.Open
19273             End If
19274             Try
19275                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19276                 Return returnValue
19277             Finally
19278                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19279                     Me.Adapter.UpdateCommand.Connection.Close
19280                 End If
19281             End Try
19282         End Function
19283         
19284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19286          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19287          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19288         Public Overloads Overridable Function Update(ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String, ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
19289             Return Me.Update(Original_Q_ID, QuotationNo, _Date, CustomerID, GrandTotal, Remarks, Original_Q_ID, Original_QuotationNo, Original_Date, Original_CustomerID, Original_GrandTotal)
19290         End Function
19291     End Class
19292     
19293     '''<summary>
19294     '''Represents the connection and commands used to retrieve and save data.
19295     '''</summary>
19296     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19297      Global.System.ComponentModel.ToolboxItem(true), _
19298      Global.System.ComponentModel.DataObjectAttribute(true), _
19299      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
19300         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19301      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19302     Partial Public Class Quotation_JoinTableAdapter
19303         Inherits Global.System.ComponentModel.Component
19304         
19305         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
19306         
19307         Private _connection As Global.System.Data.SqlClient.SqlConnection
19308         
19309         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
19310         
19311         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
19312         
19313         Private _clearBeforeFill As Boolean
19314         
19315         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19316          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19317         Public Sub New()
19318             MyBase.New
19319             Me.ClearBeforeFill = true
19320         End Sub
19321         
19322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19324         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
19325             Get
19326                 If (Me._adapter Is Nothing) Then
19327                     Me.InitAdapter
19328                 End If
19329                 Return Me._adapter
19330             End Get
19331         End Property
19332         
19333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19335         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
19336             Get
19337                 If (Me._connection Is Nothing) Then
19338                     Me.InitConnection
19339                 End If
19340                 Return Me._connection
19341             End Get
19342             Set
19343                 Me._connection = value
19344                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
19345                     Me.Adapter.InsertCommand.Connection = value
19346                 End If
19347                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
19348                     Me.Adapter.DeleteCommand.Connection = value
19349                 End If
19350                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
19351                     Me.Adapter.UpdateCommand.Connection = value
19352                 End If
19353                 Dim i As Integer = 0
19354                 Do While (i < Me.CommandCollection.Length)
19355                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
19356                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
19357                     End If
19358                     i = (i + 1)
19359                 Loop
19360             End Set
19361         End Property
19362         
19363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19365         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
19366             Get
19367                 Return Me._transaction
19368             End Get
19369             Set
19370                 Me._transaction = value
19371                 Dim i As Integer = 0
19372                 Do While (i < Me.CommandCollection.Length)
19373                     Me.CommandCollection(i).Transaction = Me._transaction
19374                     i = (i + 1)
19375                 Loop
19376                 If ((Not (Me.Adapter) Is Nothing) _
19377                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
19378                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
19379                 End If
19380                 If ((Not (Me.Adapter) Is Nothing) _
19381                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
19382                     Me.Adapter.InsertCommand.Transaction = Me._transaction
19383                 End If
19384                 If ((Not (Me.Adapter) Is Nothing) _
19385                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
19386                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
19387                 End If
19388             End Set
19389         End Property
19390         
19391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19393         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
19394             Get
19395                 If (Me._commandCollection Is Nothing) Then
19396                     Me.InitCommandCollection
19397                 End If
19398                 Return Me._commandCollection
19399             End Get
19400         End Property
19401         
19402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19404         Public Property ClearBeforeFill() As Boolean
19405             Get
19406                 Return Me._clearBeforeFill
19407             End Get
19408             Set
19409                 Me._clearBeforeFill = value
19410             End Set
19411         End Property
19412         
19413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19415         Private Sub InitAdapter()
19416             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
19417             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
19418             tableMapping.SourceTable = "Table"
19419             tableMapping.DataSetTable = "Quotation_Join"
19420             tableMapping.ColumnMappings.Add("QJ_ID", "QJ_ID")
19421             tableMapping.ColumnMappings.Add("QuotationID", "QuotationID")
19422             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
19423             tableMapping.ColumnMappings.Add("Cost", "Cost")
19424             tableMapping.ColumnMappings.Add("Qty", "Qty")
19425             tableMapping.ColumnMappings.Add("Amount", "Amount")
19426             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
19427             tableMapping.ColumnMappings.Add("Discount", "Discount")
19428             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
19429             tableMapping.ColumnMappings.Add("VAT", "VAT")
19430             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
19431             Me._adapter.TableMappings.Add(tableMapping)
19432             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
19433             Me._adapter.DeleteCommand.Connection = Me.Connection
19434             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Quotation_Join] WHERE (([QJ_ID] = @Original_QJ_ID) AND ([Quota"& _
19435                 "tionID] = @Original_QuotationID) AND ([ProductID] = @Original_ProductID) AND ([C"& _
19436                 "ost] = @Original_Cost) AND ([Qty] = @Original_Qty) AND ([Amount] = @Original_Amo"& _
19437                 "unt) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Original_Dis"& _
19438                 "count) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AND ([Total"& _
19439                 "Amount] = @Original_TotalAmount))"
19440             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
19441             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19442             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19443             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19444             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19445             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19446             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19447             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19448             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19449             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19450             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19451             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19452             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
19453             Me._adapter.InsertCommand.Connection = Me.Connection
19454             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Quotation_Join] ([QuotationID], [ProductID], [Cost], [Qty], [A"& _
19455                 "mount], [DiscountPer], [Discount], [VATPer], [VAT], [TotalAmount]) VALUES (@Quot"& _
19456                 "ationID, @ProductID, @Cost, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VA"& _
19457                 "T, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, Disc"& _
19458                 "ountPer, Discount, VATPer, VAT, TotalAmount FROM Quotation_Join WHERE (QJ_ID = S"& _
19459                 "COPE_IDENTITY())"
19460             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
19461             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19462             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19463             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19464             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19465             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19466             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19467             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19468             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19469             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19470             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19471             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
19472             Me._adapter.UpdateCommand.Connection = Me.Connection
19473             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Quotation_Join] SET [QuotationID] = @QuotationID, [ProductID] = @Pr"& _
19474                 "oductID, [Cost] = @Cost, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @Disc"& _
19475                 "ountPer, [Discount] = @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount]"& _
19476                 " = @TotalAmount WHERE (([QJ_ID] = @Original_QJ_ID) AND ([QuotationID] = @Origina"& _
19477                 "l_QuotationID) AND ([ProductID] = @Original_ProductID) AND ([Cost] = @Original_C"& _
19478                 "ost) AND ([Qty] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([Discoun"& _
19479                 "tPer] = @Original_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPe"& _
19480                 "r] = @Original_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Origina"& _
19481                 "l_TotalAmount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, Disco"& _
19482                 "untPer, Discount, VATPer, VAT, TotalAmount FROM Quotation_Join WHERE (QJ_ID = @Q"& _
19483                 "J_ID)"
19484             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
19485             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19486             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19487             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19488             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19489             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19490             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19491             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19492             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19493             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19494             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19495             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19496             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19497             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19498             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19499             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19500             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19501             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19502             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19503             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19504             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19505             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19506             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QJ_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19507         End Sub
19508         
19509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19511         Private Sub InitConnection()
19512             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
19513             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
19514         End Sub
19515         
19516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19518         Private Sub InitCommandCollection()
19519             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
19520             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
19521             Me._commandCollection(0).Connection = Me.Connection
19522             Me._commandCollection(0).CommandText = "SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, DiscountPer, Discount, V"& _
19523                 "ATPer, VAT, TotalAmount FROM dbo.Quotation_Join"
19524             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
19525         End Sub
19526         
19527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19529          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19530          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
19531         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Quotation_JoinDataTable) As Integer
19532             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19533             If (Me.ClearBeforeFill = true) Then
19534                 dataTable.Clear
19535             End If
19536             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
19537             Return returnValue
19538         End Function
19539         
19540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19542          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19543          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
19544         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Quotation_JoinDataTable
19545             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19546             Dim dataTable As SIS_DBDataSet1.Quotation_JoinDataTable = New SIS_DBDataSet1.Quotation_JoinDataTable()
19547             Me.Adapter.Fill(dataTable)
19548             Return dataTable
19549         End Function
19550         
19551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19553          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19554         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Quotation_JoinDataTable) As Integer
19555             Return Me.Adapter.Update(dataTable)
19556         End Function
19557         
19558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19560          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19561         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
19562             Return Me.Adapter.Update(dataSet, "Quotation_Join")
19563         End Function
19564         
19565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19567          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19568         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
19569             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
19570         End Function
19571         
19572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19574          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19575         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
19576             Return Me.Adapter.Update(dataRows)
19577         End Function
19578         
19579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19581          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19582          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
19583         Public Overloads Overridable Function Delete(ByVal Original_QJ_ID As Integer, ByVal Original_QuotationID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Cost As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
19584             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_QJ_ID,Integer)
19585             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QuotationID,Integer)
19586             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
19587             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Cost,Decimal)
19588             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Qty,Integer)
19589             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Amount,Decimal)
19590             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_DiscountPer,Decimal)
19591             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Discount,Decimal)
19592             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VATPer,Decimal)
19593             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_VAT,Decimal)
19594             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TotalAmount,Decimal)
19595             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
19596             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19597                         <> Global.System.Data.ConnectionState.Open) Then
19598                 Me.Adapter.DeleteCommand.Connection.Open
19599             End If
19600             Try
19601                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
19602                 Return returnValue
19603             Finally
19604                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19605                     Me.Adapter.DeleteCommand.Connection.Close
19606                 End If
19607             End Try
19608         End Function
19609         
19610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19612          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19613          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
19614         Public Overloads Overridable Function Insert(ByVal QuotationID As Integer, ByVal ProductID As Integer, ByVal Cost As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
19615             Me.Adapter.InsertCommand.Parameters(0).Value = CType(QuotationID,Integer)
19616             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
19617             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Cost,Decimal)
19618             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Qty,Integer)
19619             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Amount,Decimal)
19620             Me.Adapter.InsertCommand.Parameters(5).Value = CType(DiscountPer,Decimal)
19621             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Discount,Decimal)
19622             Me.Adapter.InsertCommand.Parameters(7).Value = CType(VATPer,Decimal)
19623             Me.Adapter.InsertCommand.Parameters(8).Value = CType(VAT,Decimal)
19624             Me.Adapter.InsertCommand.Parameters(9).Value = CType(TotalAmount,Decimal)
19625             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
19626             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19627                         <> Global.System.Data.ConnectionState.Open) Then
19628                 Me.Adapter.InsertCommand.Connection.Open
19629             End If
19630             Try
19631                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
19632                 Return returnValue
19633             Finally
19634                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19635                     Me.Adapter.InsertCommand.Connection.Close
19636                 End If
19637             End Try
19638         End Function
19639         
19640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19642          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19643          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19644         Public Overloads Overridable Function Update( _
19645                     ByVal QuotationID As Integer, _
19646                     ByVal ProductID As Integer, _
19647                     ByVal Cost As Decimal, _
19648                     ByVal Qty As Integer, _
19649                     ByVal Amount As Decimal, _
19650                     ByVal DiscountPer As Decimal, _
19651                     ByVal Discount As Decimal, _
19652                     ByVal VATPer As Decimal, _
19653                     ByVal VAT As Decimal, _
19654                     ByVal TotalAmount As Decimal, _
19655                     ByVal Original_QJ_ID As Integer, _
19656                     ByVal Original_QuotationID As Integer, _
19657                     ByVal Original_ProductID As Integer, _
19658                     ByVal Original_Cost As Decimal, _
19659                     ByVal Original_Qty As Integer, _
19660                     ByVal Original_Amount As Decimal, _
19661                     ByVal Original_DiscountPer As Decimal, _
19662                     ByVal Original_Discount As Decimal, _
19663                     ByVal Original_VATPer As Decimal, _
19664                     ByVal Original_VAT As Decimal, _
19665                     ByVal Original_TotalAmount As Decimal, _
19666                     ByVal QJ_ID As Integer) As Integer
19667             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(QuotationID,Integer)
19668             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
19669             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Cost,Decimal)
19670             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Qty,Integer)
19671             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Amount,Decimal)
19672             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DiscountPer,Decimal)
19673             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Discount,Decimal)
19674             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(VATPer,Decimal)
19675             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VAT,Decimal)
19676             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TotalAmount,Decimal)
19677             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_QJ_ID,Integer)
19678             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_QuotationID,Integer)
19679             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ProductID,Integer)
19680             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Cost,Decimal)
19681             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Qty,Integer)
19682             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Amount,Decimal)
19683             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_DiscountPer,Decimal)
19684             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Discount,Decimal)
19685             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_VATPer,Decimal)
19686             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_VAT,Decimal)
19687             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_TotalAmount,Decimal)
19688             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(QJ_ID,Integer)
19689             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19690             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19691                         <> Global.System.Data.ConnectionState.Open) Then
19692                 Me.Adapter.UpdateCommand.Connection.Open
19693             End If
19694             Try
19695                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19696                 Return returnValue
19697             Finally
19698                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19699                     Me.Adapter.UpdateCommand.Connection.Close
19700                 End If
19701             End Try
19702         End Function
19703         
19704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19706          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19707          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19708         Public Overloads Overridable Function Update( _
19709                     ByVal QuotationID As Integer, _
19710                     ByVal ProductID As Integer, _
19711                     ByVal Cost As Decimal, _
19712                     ByVal Qty As Integer, _
19713                     ByVal Amount As Decimal, _
19714                     ByVal DiscountPer As Decimal, _
19715                     ByVal Discount As Decimal, _
19716                     ByVal VATPer As Decimal, _
19717                     ByVal VAT As Decimal, _
19718                     ByVal TotalAmount As Decimal, _
19719                     ByVal Original_QJ_ID As Integer, _
19720                     ByVal Original_QuotationID As Integer, _
19721                     ByVal Original_ProductID As Integer, _
19722                     ByVal Original_Cost As Decimal, _
19723                     ByVal Original_Qty As Integer, _
19724                     ByVal Original_Amount As Decimal, _
19725                     ByVal Original_DiscountPer As Decimal, _
19726                     ByVal Original_Discount As Decimal, _
19727                     ByVal Original_VATPer As Decimal, _
19728                     ByVal Original_VAT As Decimal, _
19729                     ByVal Original_TotalAmount As Decimal) As Integer
19730             Return Me.Update(QuotationID, ProductID, Cost, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_QJ_ID, Original_QuotationID, Original_ProductID, Original_Cost, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_QJ_ID)
19731         End Function
19732     End Class
19733     
19734     '''<summary>
19735     '''Represents the connection and commands used to retrieve and save data.
19736     '''</summary>
19737     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19738      Global.System.ComponentModel.ToolboxItem(true), _
19739      Global.System.ComponentModel.DataObjectAttribute(true), _
19740      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
19741         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19742      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19743     Partial Public Class RegistrationTableAdapter
19744         Inherits Global.System.ComponentModel.Component
19745         
19746         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
19747         
19748         Private _connection As Global.System.Data.SqlClient.SqlConnection
19749         
19750         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
19751         
19752         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
19753         
19754         Private _clearBeforeFill As Boolean
19755         
19756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19758         Public Sub New()
19759             MyBase.New
19760             Me.ClearBeforeFill = true
19761         End Sub
19762         
19763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19765         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
19766             Get
19767                 If (Me._adapter Is Nothing) Then
19768                     Me.InitAdapter
19769                 End If
19770                 Return Me._adapter
19771             End Get
19772         End Property
19773         
19774         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19775          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19776         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
19777             Get
19778                 If (Me._connection Is Nothing) Then
19779                     Me.InitConnection
19780                 End If
19781                 Return Me._connection
19782             End Get
19783             Set
19784                 Me._connection = value
19785                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
19786                     Me.Adapter.InsertCommand.Connection = value
19787                 End If
19788                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
19789                     Me.Adapter.DeleteCommand.Connection = value
19790                 End If
19791                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
19792                     Me.Adapter.UpdateCommand.Connection = value
19793                 End If
19794                 Dim i As Integer = 0
19795                 Do While (i < Me.CommandCollection.Length)
19796                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
19797                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
19798                     End If
19799                     i = (i + 1)
19800                 Loop
19801             End Set
19802         End Property
19803         
19804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19806         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
19807             Get
19808                 Return Me._transaction
19809             End Get
19810             Set
19811                 Me._transaction = value
19812                 Dim i As Integer = 0
19813                 Do While (i < Me.CommandCollection.Length)
19814                     Me.CommandCollection(i).Transaction = Me._transaction
19815                     i = (i + 1)
19816                 Loop
19817                 If ((Not (Me.Adapter) Is Nothing) _
19818                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
19819                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
19820                 End If
19821                 If ((Not (Me.Adapter) Is Nothing) _
19822                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
19823                     Me.Adapter.InsertCommand.Transaction = Me._transaction
19824                 End If
19825                 If ((Not (Me.Adapter) Is Nothing) _
19826                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
19827                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
19828                 End If
19829             End Set
19830         End Property
19831         
19832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19834         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
19835             Get
19836                 If (Me._commandCollection Is Nothing) Then
19837                     Me.InitCommandCollection
19838                 End If
19839                 Return Me._commandCollection
19840             End Get
19841         End Property
19842         
19843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19845         Public Property ClearBeforeFill() As Boolean
19846             Get
19847                 Return Me._clearBeforeFill
19848             End Get
19849             Set
19850                 Me._clearBeforeFill = value
19851             End Set
19852         End Property
19853         
19854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19856         Private Sub InitAdapter()
19857             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
19858             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
19859             tableMapping.SourceTable = "Table"
19860             tableMapping.DataSetTable = "Registration"
19861             tableMapping.ColumnMappings.Add("UserID", "UserID")
19862             tableMapping.ColumnMappings.Add("UserType", "UserType")
19863             tableMapping.ColumnMappings.Add("Password", "Password")
19864             tableMapping.ColumnMappings.Add("Name", "Name")
19865             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
19866             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
19867             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
19868             Me._adapter.TableMappings.Add(tableMapping)
19869             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
19870             Me._adapter.DeleteCommand.Connection = Me.Connection
19871             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Registration] WHERE (([UserID] = @Original_UserID) AND ([UserT"& _
19872                 "ype] = @Original_UserType) AND ([Password] = @Original_Password) AND ([Name] = @"& _
19873                 "Original_Name) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
19874                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
19875                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
19876                 ")"
19877             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
19878             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19879             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19880             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19881             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19882             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19883             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
19884             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19885             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
19886             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19887             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
19888             Me._adapter.InsertCommand.Connection = Me.Connection
19889             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Registration] ([UserID], [UserType], [Password], [Name], [Cont"& _
19890                 "actNo], [EmailID], [JoiningDate]) VALUES (@UserID, @UserType, @Password, @Name, "& _
19891                 "@ContactNo, @EmailID, @JoiningDate);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, UserType, Password, Name, C"& _
19892                 "ontactNo, EmailID, JoiningDate FROM Registration WHERE (UserID = @UserID)"
19893             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
19894             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19895             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19896             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19897             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19898             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19899             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19900             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19901             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
19902             Me._adapter.UpdateCommand.Connection = Me.Connection
19903             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Registration] SET [UserID] = @UserID, [UserType] = @UserType, [Pass"& _
19904                 "word] = @Password, [Name] = @Name, [ContactNo] = @ContactNo, [EmailID] = @EmailI"& _
19905                 "D, [JoiningDate] = @JoiningDate WHERE (([UserID] = @Original_UserID) AND ([UserT"& _
19906                 "ype] = @Original_UserType) AND ([Password] = @Original_Password) AND ([Name] = @"& _
19907                 "Original_Name) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
19908                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
19909                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
19910                 ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate FRO"& _
19911                 "M Registration WHERE (UserID = @UserID)"
19912             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
19913             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19914             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19915             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19916             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19917             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19918             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19919             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19920             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19921             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19922             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19923             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19924             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19925             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
19926             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19927             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
19928             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19929         End Sub
19930         
19931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19933         Private Sub InitConnection()
19934             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
19935             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
19936         End Sub
19937         
19938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19940         Private Sub InitCommandCollection()
19941             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
19942             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
19943             Me._commandCollection(0).Connection = Me.Connection
19944             Me._commandCollection(0).CommandText = "SELECT UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate FROM dbo"& _
19945                 ".Registration"
19946             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
19947         End Sub
19948         
19949         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19950          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19951          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19952          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
19953         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.RegistrationDataTable) As Integer
19954             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19955             If (Me.ClearBeforeFill = true) Then
19956                 dataTable.Clear
19957             End If
19958             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
19959             Return returnValue
19960         End Function
19961         
19962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19964          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19965          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
19966         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.RegistrationDataTable
19967             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19968             Dim dataTable As SIS_DBDataSet1.RegistrationDataTable = New SIS_DBDataSet1.RegistrationDataTable()
19969             Me.Adapter.Fill(dataTable)
19970             Return dataTable
19971         End Function
19972         
19973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19975          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19976         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.RegistrationDataTable) As Integer
19977             Return Me.Adapter.Update(dataTable)
19978         End Function
19979         
19980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19982          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19983         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
19984             Return Me.Adapter.Update(dataSet, "Registration")
19985         End Function
19986         
19987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19989          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19990         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
19991             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
19992         End Function
19993         
19994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19996          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19997         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
19998             Return Me.Adapter.Update(dataRows)
19999         End Function
20000         
20001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20003          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20004          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
20005         Public Overloads Overridable Function Delete(ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
20006             If (Original_UserID Is Nothing) Then
20007                 Throw New Global.System.ArgumentNullException("Original_UserID")
20008             Else
20009                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,String)
20010             End If
20011             If (Original_UserType Is Nothing) Then
20012                 Throw New Global.System.ArgumentNullException("Original_UserType")
20013             Else
20014                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserType,String)
20015             End If
20016             If (Original_Password Is Nothing) Then
20017                 Throw New Global.System.ArgumentNullException("Original_Password")
20018             Else
20019                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Password,String)
20020             End If
20021             If (Original_Name Is Nothing) Then
20022                 Throw New Global.System.ArgumentNullException("Original_Name")
20023             Else
20024                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Name,String)
20025             End If
20026             If (Original_ContactNo Is Nothing) Then
20027                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
20028             Else
20029                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ContactNo,String)
20030             End If
20031             If (Original_EmailID Is Nothing) Then
20032                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
20033                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
20034             Else
20035                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
20036                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_EmailID,String)
20037             End If
20038             If (Original_JoiningDate.HasValue = true) Then
20039                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
20040                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_JoiningDate.Value,Date)
20041             Else
20042                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
20043                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
20044             End If
20045             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
20046             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20047                         <> Global.System.Data.ConnectionState.Open) Then
20048                 Me.Adapter.DeleteCommand.Connection.Open
20049             End If
20050             Try
20051                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
20052                 Return returnValue
20053             Finally
20054                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20055                     Me.Adapter.DeleteCommand.Connection.Close
20056                 End If
20057             End Try
20058         End Function
20059         
20060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20062          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20063          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
20064         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date)) As Integer
20065             If (UserID Is Nothing) Then
20066                 Throw New Global.System.ArgumentNullException("UserID")
20067             Else
20068                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
20069             End If
20070             If (UserType Is Nothing) Then
20071                 Throw New Global.System.ArgumentNullException("UserType")
20072             Else
20073                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserType,String)
20074             End If
20075             If (Password Is Nothing) Then
20076                 Throw New Global.System.ArgumentNullException("Password")
20077             Else
20078                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Password,String)
20079             End If
20080             If (Name Is Nothing) Then
20081                 Throw New Global.System.ArgumentNullException("Name")
20082             Else
20083                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Name,String)
20084             End If
20085             If (ContactNo Is Nothing) Then
20086                 Throw New Global.System.ArgumentNullException("ContactNo")
20087             Else
20088                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(ContactNo,String)
20089             End If
20090             If (EmailID Is Nothing) Then
20091                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
20092             Else
20093                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(EmailID,String)
20094             End If
20095             If (JoiningDate.HasValue = true) Then
20096                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
20097             Else
20098                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
20099             End If
20100             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
20101             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20102                         <> Global.System.Data.ConnectionState.Open) Then
20103                 Me.Adapter.InsertCommand.Connection.Open
20104             End If
20105             Try
20106                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
20107                 Return returnValue
20108             Finally
20109                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20110                     Me.Adapter.InsertCommand.Connection.Close
20111                 End If
20112             End Try
20113         End Function
20114         
20115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20117          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20118          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20119         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
20120             If (UserID Is Nothing) Then
20121                 Throw New Global.System.ArgumentNullException("UserID")
20122             Else
20123                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
20124             End If
20125             If (UserType Is Nothing) Then
20126                 Throw New Global.System.ArgumentNullException("UserType")
20127             Else
20128                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserType,String)
20129             End If
20130             If (Password Is Nothing) Then
20131                 Throw New Global.System.ArgumentNullException("Password")
20132             Else
20133                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Password,String)
20134             End If
20135             If (Name Is Nothing) Then
20136                 Throw New Global.System.ArgumentNullException("Name")
20137             Else
20138                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Name,String)
20139             End If
20140             If (ContactNo Is Nothing) Then
20141                 Throw New Global.System.ArgumentNullException("ContactNo")
20142             Else
20143                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ContactNo,String)
20144             End If
20145             If (EmailID Is Nothing) Then
20146                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
20147             Else
20148                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EmailID,String)
20149             End If
20150             If (JoiningDate.HasValue = true) Then
20151                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
20152             Else
20153                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
20154             End If
20155             If (Original_UserID Is Nothing) Then
20156                 Throw New Global.System.ArgumentNullException("Original_UserID")
20157             Else
20158                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_UserID,String)
20159             End If
20160             If (Original_UserType Is Nothing) Then
20161                 Throw New Global.System.ArgumentNullException("Original_UserType")
20162             Else
20163                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_UserType,String)
20164             End If
20165             If (Original_Password Is Nothing) Then
20166                 Throw New Global.System.ArgumentNullException("Original_Password")
20167             Else
20168                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Password,String)
20169             End If
20170             If (Original_Name Is Nothing) Then
20171                 Throw New Global.System.ArgumentNullException("Original_Name")
20172             Else
20173                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Name,String)
20174             End If
20175             If (Original_ContactNo Is Nothing) Then
20176                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
20177             Else
20178                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
20179             End If
20180             If (Original_EmailID Is Nothing) Then
20181                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
20182                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
20183             Else
20184                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
20185                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_EmailID,String)
20186             End If
20187             If (Original_JoiningDate.HasValue = true) Then
20188                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
20189                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_JoiningDate.Value,Date)
20190             Else
20191                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
20192                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
20193             End If
20194             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
20195             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20196                         <> Global.System.Data.ConnectionState.Open) Then
20197                 Me.Adapter.UpdateCommand.Connection.Open
20198             End If
20199             Try
20200                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
20201                 Return returnValue
20202             Finally
20203                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20204                     Me.Adapter.UpdateCommand.Connection.Close
20205                 End If
20206             End Try
20207         End Function
20208         
20209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20211          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20212          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20213         Public Overloads Overridable Function Update(ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
20214             Return Me.Update(Original_UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate, Original_UserID, Original_UserType, Original_Password, Original_Name, Original_ContactNo, Original_EmailID, Original_JoiningDate)
20215         End Function
20216     End Class
20217     
20218     '''<summary>
20219     '''Represents the connection and commands used to retrieve and save data.
20220     '''</summary>
20221     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
20222      Global.System.ComponentModel.ToolboxItem(true), _
20223      Global.System.ComponentModel.DataObjectAttribute(true), _
20224      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
20225         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
20226      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20227     Partial Public Class ServiceTableAdapter
20228         Inherits Global.System.ComponentModel.Component
20229         
20230         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
20231         
20232         Private _connection As Global.System.Data.SqlClient.SqlConnection
20233         
20234         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
20235         
20236         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
20237         
20238         Private _clearBeforeFill As Boolean
20239         
20240         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20241          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20242         Public Sub New()
20243             MyBase.New
20244             Me.ClearBeforeFill = true
20245         End Sub
20246         
20247         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20248          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20249         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
20250             Get
20251                 If (Me._adapter Is Nothing) Then
20252                     Me.InitAdapter
20253                 End If
20254                 Return Me._adapter
20255             End Get
20256         End Property
20257         
20258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20260         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
20261             Get
20262                 If (Me._connection Is Nothing) Then
20263                     Me.InitConnection
20264                 End If
20265                 Return Me._connection
20266             End Get
20267             Set
20268                 Me._connection = value
20269                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
20270                     Me.Adapter.InsertCommand.Connection = value
20271                 End If
20272                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
20273                     Me.Adapter.DeleteCommand.Connection = value
20274                 End If
20275                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
20276                     Me.Adapter.UpdateCommand.Connection = value
20277                 End If
20278                 Dim i As Integer = 0
20279                 Do While (i < Me.CommandCollection.Length)
20280                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
20281                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
20282                     End If
20283                     i = (i + 1)
20284                 Loop
20285             End Set
20286         End Property
20287         
20288         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20289          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20290         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
20291             Get
20292                 Return Me._transaction
20293             End Get
20294             Set
20295                 Me._transaction = value
20296                 Dim i As Integer = 0
20297                 Do While (i < Me.CommandCollection.Length)
20298                     Me.CommandCollection(i).Transaction = Me._transaction
20299                     i = (i + 1)
20300                 Loop
20301                 If ((Not (Me.Adapter) Is Nothing) _
20302                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
20303                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
20304                 End If
20305                 If ((Not (Me.Adapter) Is Nothing) _
20306                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
20307                     Me.Adapter.InsertCommand.Transaction = Me._transaction
20308                 End If
20309                 If ((Not (Me.Adapter) Is Nothing) _
20310                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
20311                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
20312                 End If
20313             End Set
20314         End Property
20315         
20316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20318         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
20319             Get
20320                 If (Me._commandCollection Is Nothing) Then
20321                     Me.InitCommandCollection
20322                 End If
20323                 Return Me._commandCollection
20324             End Get
20325         End Property
20326         
20327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20329         Public Property ClearBeforeFill() As Boolean
20330             Get
20331                 Return Me._clearBeforeFill
20332             End Get
20333             Set
20334                 Me._clearBeforeFill = value
20335             End Set
20336         End Property
20337         
20338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20340         Private Sub InitAdapter()
20341             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
20342             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
20343             tableMapping.SourceTable = "Table"
20344             tableMapping.DataSetTable = "Service"
20345             tableMapping.ColumnMappings.Add("S_ID", "S_ID")
20346             tableMapping.ColumnMappings.Add("ServiceCode", "ServiceCode")
20347             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
20348             tableMapping.ColumnMappings.Add("ServiceType", "ServiceType")
20349             tableMapping.ColumnMappings.Add("ServiceCreationDate", "ServiceCreationDate")
20350             tableMapping.ColumnMappings.Add("ItemDescription", "ItemDescription")
20351             tableMapping.ColumnMappings.Add("ProblemDescription", "ProblemDescription")
20352             tableMapping.ColumnMappings.Add("ChargesQuote", "ChargesQuote")
20353             tableMapping.ColumnMappings.Add("AdvanceDeposit", "AdvanceDeposit")
20354             tableMapping.ColumnMappings.Add("EstimatedRepairDate", "EstimatedRepairDate")
20355             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
20356             tableMapping.ColumnMappings.Add("Status", "Status")
20357             Me._adapter.TableMappings.Add(tableMapping)
20358             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
20359             Me._adapter.DeleteCommand.Connection = Me.Connection
20360             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Service] WHERE (([S_ID] = @Original_S_ID) AND ([ServiceCode] ="& _
20361                 " @Original_ServiceCode) AND ([CustomerID] = @Original_CustomerID) AND ((@IsNull_"& _
20362                 "ServiceType = 1 AND [ServiceType] IS NULL) OR ([ServiceType] = @Original_Service"& _
20363                 "Type)) AND ([ServiceCreationDate] = @Original_ServiceCreationDate) AND ([Charges"& _
20364                 "Quote] = @Original_ChargesQuote) AND ([AdvanceDeposit] = @Original_AdvanceDeposi"& _
20365                 "t) AND ([EstimatedRepairDate] = @Original_EstimatedRepairDate) AND ([Status] = @"& _
20366                 "Original_Status))"
20367             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
20368             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20369             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20370             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20371             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ServiceType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
20372             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20373             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20374             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20375             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20376             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20377             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20378             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
20379             Me._adapter.InsertCommand.Connection = Me.Connection
20380             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Service] ([S_ID], [ServiceCode], [CustomerID], [ServiceType], "& _
20381                 "[ServiceCreationDate], [ItemDescription], [ProblemDescription], [ChargesQuote], "& _
20382                 "[AdvanceDeposit], [EstimatedRepairDate], [Remarks], [Status]) VALUES (@S_ID, @Se"& _
20383                 "rviceCode, @CustomerID, @ServiceType, @ServiceCreationDate, @ItemDescription, @P"& _
20384                 "roblemDescription, @ChargesQuote, @AdvanceDeposit, @EstimatedRepairDate, @Remark"& _
20385                 "s, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreation"& _
20386                 "Date, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, Estimat"& _
20387                 "edRepairDate, Remarks, Status FROM Service WHERE (S_ID = @S_ID)"
20388             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
20389             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20390             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20391             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20392             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20393             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20394             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20395             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProblemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProblemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20396             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20397             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20398             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20399             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20400             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20401             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
20402             Me._adapter.UpdateCommand.Connection = Me.Connection
20403             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Service] SET [S_ID] = @S_ID, [ServiceCode] = @ServiceCode, [Custome"& _
20404                 "rID] = @CustomerID, [ServiceType] = @ServiceType, [ServiceCreationDate] = @Servi"& _
20405                 "ceCreationDate, [ItemDescription] = @ItemDescription, [ProblemDescription] = @Pr"& _
20406                 "oblemDescription, [ChargesQuote] = @ChargesQuote, [AdvanceDeposit] = @AdvanceDep"& _
20407                 "osit, [EstimatedRepairDate] = @EstimatedRepairDate, [Remarks] = @Remarks, [Statu"& _
20408                 "s] = @Status WHERE (([S_ID] = @Original_S_ID) AND ([ServiceCode] = @Original_Ser"& _
20409                 "viceCode) AND ([CustomerID] = @Original_CustomerID) AND ((@IsNull_ServiceType = "& _
20410                 "1 AND [ServiceType] IS NULL) OR ([ServiceType] = @Original_ServiceType)) AND ([S"& _
20411                 "erviceCreationDate] = @Original_ServiceCreationDate) AND ([ChargesQuote] = @Orig"& _
20412                 "inal_ChargesQuote) AND ([AdvanceDeposit] = @Original_AdvanceDeposit) AND ([Estim"& _
20413                 "atedRepairDate] = @Original_EstimatedRepairDate) AND ([Status] = @Original_Statu"& _
20414                 "s));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, It"& _
20415                 "emDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepair"& _
20416                 "Date, Remarks, Status FROM Service WHERE (S_ID = @S_ID)"
20417             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
20418             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20419             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20420             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20421             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20422             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20423             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20424             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProblemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProblemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20425             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20426             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20427             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20428             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20429             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20430             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20431             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20432             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20433             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ServiceType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
20434             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20435             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20436             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20437             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20438             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20439             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20440         End Sub
20441         
20442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20444         Private Sub InitConnection()
20445             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
20446             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
20447         End Sub
20448         
20449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20451         Private Sub InitCommandCollection()
20452             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
20453             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
20454             Me._commandCollection(0).Connection = Me.Connection
20455             Me._commandCollection(0).CommandText = "SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, ItemDescr"& _
20456                 "iption, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, R"& _
20457                 "emarks, Status FROM dbo.Service"
20458             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
20459         End Sub
20460         
20461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20463          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20464          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
20465         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.ServiceDataTable) As Integer
20466             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20467             If (Me.ClearBeforeFill = true) Then
20468                 dataTable.Clear
20469             End If
20470             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
20471             Return returnValue
20472         End Function
20473         
20474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20476          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20477          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
20478         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.ServiceDataTable
20479             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20480             Dim dataTable As SIS_DBDataSet1.ServiceDataTable = New SIS_DBDataSet1.ServiceDataTable()
20481             Me.Adapter.Fill(dataTable)
20482             Return dataTable
20483         End Function
20484         
20485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20487          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20488         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.ServiceDataTable) As Integer
20489             Return Me.Adapter.Update(dataTable)
20490         End Function
20491         
20492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20494          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20495         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
20496             Return Me.Adapter.Update(dataSet, "Service")
20497         End Function
20498         
20499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20501          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20502         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
20503             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
20504         End Function
20505         
20506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20508          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20509         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
20510             Return Me.Adapter.Update(dataRows)
20511         End Function
20512         
20513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20515          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20516          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
20517         Public Overloads Overridable Function Delete(ByVal Original_S_ID As Integer, ByVal Original_ServiceCode As String, ByVal Original_CustomerID As Integer, ByVal Original_ServiceType As String, ByVal Original_ServiceCreationDate As Date, ByVal Original_ChargesQuote As Decimal, ByVal Original_AdvanceDeposit As Decimal, ByVal Original_EstimatedRepairDate As Date, ByVal Original_Status As String) As Integer
20518             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_S_ID,Integer)
20519             If (Original_ServiceCode Is Nothing) Then
20520                 Throw New Global.System.ArgumentNullException("Original_ServiceCode")
20521             Else
20522                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ServiceCode,String)
20523             End If
20524             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CustomerID,Integer)
20525             If (Original_ServiceType Is Nothing) Then
20526                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
20527                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
20528             Else
20529                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
20530                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ServiceType,String)
20531             End If
20532             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ServiceCreationDate,Date)
20533             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ChargesQuote,Decimal)
20534             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_AdvanceDeposit,Decimal)
20535             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_EstimatedRepairDate,Date)
20536             If (Original_Status Is Nothing) Then
20537                 Throw New Global.System.ArgumentNullException("Original_Status")
20538             Else
20539                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Status,String)
20540             End If
20541             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
20542             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20543                         <> Global.System.Data.ConnectionState.Open) Then
20544                 Me.Adapter.DeleteCommand.Connection.Open
20545             End If
20546             Try
20547                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
20548                 Return returnValue
20549             Finally
20550                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20551                     Me.Adapter.DeleteCommand.Connection.Close
20552                 End If
20553             End Try
20554         End Function
20555         
20556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20558          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20559          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
20560         Public Overloads Overridable Function Insert(ByVal S_ID As Integer, ByVal ServiceCode As String, ByVal CustomerID As Integer, ByVal ServiceType As String, ByVal ServiceCreationDate As Date, ByVal ItemDescription As String, ByVal ProblemDescription As String, ByVal ChargesQuote As Decimal, ByVal AdvanceDeposit As Decimal, ByVal EstimatedRepairDate As Date, ByVal Remarks As String, ByVal Status As String) As Integer
20561             Me.Adapter.InsertCommand.Parameters(0).Value = CType(S_ID,Integer)
20562             If (ServiceCode Is Nothing) Then
20563                 Throw New Global.System.ArgumentNullException("ServiceCode")
20564             Else
20565                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ServiceCode,String)
20566             End If
20567             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CustomerID,Integer)
20568             If (ServiceType Is Nothing) Then
20569                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
20570             Else
20571                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(ServiceType,String)
20572             End If
20573             Me.Adapter.InsertCommand.Parameters(4).Value = CType(ServiceCreationDate,Date)
20574             If (ItemDescription Is Nothing) Then
20575                 Throw New Global.System.ArgumentNullException("ItemDescription")
20576             Else
20577                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(ItemDescription,String)
20578             End If
20579             If (ProblemDescription Is Nothing) Then
20580                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
20581             Else
20582                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ProblemDescription,String)
20583             End If
20584             Me.Adapter.InsertCommand.Parameters(7).Value = CType(ChargesQuote,Decimal)
20585             Me.Adapter.InsertCommand.Parameters(8).Value = CType(AdvanceDeposit,Decimal)
20586             Me.Adapter.InsertCommand.Parameters(9).Value = CType(EstimatedRepairDate,Date)
20587             If (Remarks Is Nothing) Then
20588                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
20589             Else
20590                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(Remarks,String)
20591             End If
20592             If (Status Is Nothing) Then
20593                 Throw New Global.System.ArgumentNullException("Status")
20594             Else
20595                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(Status,String)
20596             End If
20597             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
20598             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20599                         <> Global.System.Data.ConnectionState.Open) Then
20600                 Me.Adapter.InsertCommand.Connection.Open
20601             End If
20602             Try
20603                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
20604                 Return returnValue
20605             Finally
20606                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20607                     Me.Adapter.InsertCommand.Connection.Close
20608                 End If
20609             End Try
20610         End Function
20611         
20612         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20613          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20614          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20615          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20616         Public Overloads Overridable Function Update( _
20617                     ByVal S_ID As Integer, _
20618                     ByVal ServiceCode As String, _
20619                     ByVal CustomerID As Integer, _
20620                     ByVal ServiceType As String, _
20621                     ByVal ServiceCreationDate As Date, _
20622                     ByVal ItemDescription As String, _
20623                     ByVal ProblemDescription As String, _
20624                     ByVal ChargesQuote As Decimal, _
20625                     ByVal AdvanceDeposit As Decimal, _
20626                     ByVal EstimatedRepairDate As Date, _
20627                     ByVal Remarks As String, _
20628                     ByVal Status As String, _
20629                     ByVal Original_S_ID As Integer, _
20630                     ByVal Original_ServiceCode As String, _
20631                     ByVal Original_CustomerID As Integer, _
20632                     ByVal Original_ServiceType As String, _
20633                     ByVal Original_ServiceCreationDate As Date, _
20634                     ByVal Original_ChargesQuote As Decimal, _
20635                     ByVal Original_AdvanceDeposit As Decimal, _
20636                     ByVal Original_EstimatedRepairDate As Date, _
20637                     ByVal Original_Status As String) As Integer
20638             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(S_ID,Integer)
20639             If (ServiceCode Is Nothing) Then
20640                 Throw New Global.System.ArgumentNullException("ServiceCode")
20641             Else
20642                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ServiceCode,String)
20643             End If
20644             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CustomerID,Integer)
20645             If (ServiceType Is Nothing) Then
20646                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
20647             Else
20648                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ServiceType,String)
20649             End If
20650             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ServiceCreationDate,Date)
20651             If (ItemDescription Is Nothing) Then
20652                 Throw New Global.System.ArgumentNullException("ItemDescription")
20653             Else
20654                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ItemDescription,String)
20655             End If
20656             If (ProblemDescription Is Nothing) Then
20657                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
20658             Else
20659                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ProblemDescription,String)
20660             End If
20661             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ChargesQuote,Decimal)
20662             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(AdvanceDeposit,Decimal)
20663             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EstimatedRepairDate,Date)
20664             If (Remarks Is Nothing) Then
20665                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
20666             Else
20667                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Remarks,String)
20668             End If
20669             If (Status Is Nothing) Then
20670                 Throw New Global.System.ArgumentNullException("Status")
20671             Else
20672                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Status,String)
20673             End If
20674             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_S_ID,Integer)
20675             If (Original_ServiceCode Is Nothing) Then
20676                 Throw New Global.System.ArgumentNullException("Original_ServiceCode")
20677             Else
20678                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ServiceCode,String)
20679             End If
20680             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CustomerID,Integer)
20681             If (Original_ServiceType Is Nothing) Then
20682                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
20683                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
20684             Else
20685                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
20686                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ServiceType,String)
20687             End If
20688             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ServiceCreationDate,Date)
20689             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ChargesQuote,Decimal)
20690             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_AdvanceDeposit,Decimal)
20691             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_EstimatedRepairDate,Date)
20692             If (Original_Status Is Nothing) Then
20693                 Throw New Global.System.ArgumentNullException("Original_Status")
20694             Else
20695                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Status,String)
20696             End If
20697             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
20698             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20699                         <> Global.System.Data.ConnectionState.Open) Then
20700                 Me.Adapter.UpdateCommand.Connection.Open
20701             End If
20702             Try
20703                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
20704                 Return returnValue
20705             Finally
20706                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20707                     Me.Adapter.UpdateCommand.Connection.Close
20708                 End If
20709             End Try
20710         End Function
20711         
20712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20714          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20715          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20716         Public Overloads Overridable Function Update( _
20717                     ByVal ServiceCode As String, _
20718                     ByVal CustomerID As Integer, _
20719                     ByVal ServiceType As String, _
20720                     ByVal ServiceCreationDate As Date, _
20721                     ByVal ItemDescription As String, _
20722                     ByVal ProblemDescription As String, _
20723                     ByVal ChargesQuote As Decimal, _
20724                     ByVal AdvanceDeposit As Decimal, _
20725                     ByVal EstimatedRepairDate As Date, _
20726                     ByVal Remarks As String, _
20727                     ByVal Status As String, _
20728                     ByVal Original_S_ID As Integer, _
20729                     ByVal Original_ServiceCode As String, _
20730                     ByVal Original_CustomerID As Integer, _
20731                     ByVal Original_ServiceType As String, _
20732                     ByVal Original_ServiceCreationDate As Date, _
20733                     ByVal Original_ChargesQuote As Decimal, _
20734                     ByVal Original_AdvanceDeposit As Decimal, _
20735                     ByVal Original_EstimatedRepairDate As Date, _
20736                     ByVal Original_Status As String) As Integer
20737             Return Me.Update(Original_S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, Remarks, Status, Original_S_ID, Original_ServiceCode, Original_CustomerID, Original_ServiceType, Original_ServiceCreationDate, Original_ChargesQuote, Original_AdvanceDeposit, Original_EstimatedRepairDate, Original_Status)
20738         End Function
20739     End Class
20740     
20741     '''<summary>
20742     '''Represents the connection and commands used to retrieve and save data.
20743     '''</summary>
20744     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
20745      Global.System.ComponentModel.ToolboxItem(true), _
20746      Global.System.ComponentModel.DataObjectAttribute(true), _
20747      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
20748         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
20749      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20750     Partial Public Class StockTableAdapter
20751         Inherits Global.System.ComponentModel.Component
20752         
20753         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
20754         
20755         Private _connection As Global.System.Data.SqlClient.SqlConnection
20756         
20757         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
20758         
20759         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
20760         
20761         Private _clearBeforeFill As Boolean
20762         
20763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20765         Public Sub New()
20766             MyBase.New
20767             Me.ClearBeforeFill = true
20768         End Sub
20769         
20770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20772         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
20773             Get
20774                 If (Me._adapter Is Nothing) Then
20775                     Me.InitAdapter
20776                 End If
20777                 Return Me._adapter
20778             End Get
20779         End Property
20780         
20781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20783         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
20784             Get
20785                 If (Me._connection Is Nothing) Then
20786                     Me.InitConnection
20787                 End If
20788                 Return Me._connection
20789             End Get
20790             Set
20791                 Me._connection = value
20792                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
20793                     Me.Adapter.InsertCommand.Connection = value
20794                 End If
20795                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
20796                     Me.Adapter.DeleteCommand.Connection = value
20797                 End If
20798                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
20799                     Me.Adapter.UpdateCommand.Connection = value
20800                 End If
20801                 Dim i As Integer = 0
20802                 Do While (i < Me.CommandCollection.Length)
20803                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
20804                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
20805                     End If
20806                     i = (i + 1)
20807                 Loop
20808             End Set
20809         End Property
20810         
20811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20813         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
20814             Get
20815                 Return Me._transaction
20816             End Get
20817             Set
20818                 Me._transaction = value
20819                 Dim i As Integer = 0
20820                 Do While (i < Me.CommandCollection.Length)
20821                     Me.CommandCollection(i).Transaction = Me._transaction
20822                     i = (i + 1)
20823                 Loop
20824                 If ((Not (Me.Adapter) Is Nothing) _
20825                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
20826                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
20827                 End If
20828                 If ((Not (Me.Adapter) Is Nothing) _
20829                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
20830                     Me.Adapter.InsertCommand.Transaction = Me._transaction
20831                 End If
20832                 If ((Not (Me.Adapter) Is Nothing) _
20833                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
20834                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
20835                 End If
20836             End Set
20837         End Property
20838         
20839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20841         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
20842             Get
20843                 If (Me._commandCollection Is Nothing) Then
20844                     Me.InitCommandCollection
20845                 End If
20846                 Return Me._commandCollection
20847             End Get
20848         End Property
20849         
20850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20852         Public Property ClearBeforeFill() As Boolean
20853             Get
20854                 Return Me._clearBeforeFill
20855             End Get
20856             Set
20857                 Me._clearBeforeFill = value
20858             End Set
20859         End Property
20860         
20861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20863         Private Sub InitAdapter()
20864             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
20865             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
20866             tableMapping.SourceTable = "Table"
20867             tableMapping.DataSetTable = "Stock"
20868             tableMapping.ColumnMappings.Add("ST_ID", "ST_ID")
20869             tableMapping.ColumnMappings.Add("Stock_ID", "Stock_ID")
20870             tableMapping.ColumnMappings.Add("Date", "Date")
20871             tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
20872             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
20873             tableMapping.ColumnMappings.Add("TotalPayment", "TotalPayment")
20874             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
20875             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
20876             Me._adapter.TableMappings.Add(tableMapping)
20877             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
20878             Me._adapter.DeleteCommand.Connection = Me.Connection
20879             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Stock] WHERE (([ST_ID] = @Original_ST_ID) AND ([Stock_ID] = @O"& _
20880                 "riginal_Stock_ID) AND ([Date] = @Original_Date) AND ([SupplierID] = @Original_Su"& _
20881                 "pplierID) AND ([GrandTotal] = @Original_GrandTotal) AND ([TotalPayment] = @Origi"& _
20882                 "nal_TotalPayment) AND ([PaymentDue] = @Original_PaymentDue))"
20883             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
20884             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20885             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20886             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20887             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20888             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20889             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20890             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20891             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
20892             Me._adapter.InsertCommand.Connection = Me.Connection
20893             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Stock] ([ST_ID], [Stock_ID], [Date], [SupplierID], [GrandTotal"& _
20894                 "], [TotalPayment], [PaymentDue], [Remarks]) VALUES (@ST_ID, @Stock_ID, @Date, @S"& _
20895                 "upplierID, @GrandTotal, @TotalPayment, @PaymentDue, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ST_ID, St"& _
20896                 "ock_ID, Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, Remarks FROM Sto"& _
20897                 "ck WHERE (ST_ID = @ST_ID)"
20898             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
20899             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20900             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20901             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20902             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20903             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20904             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20905             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20906             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20907             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
20908             Me._adapter.UpdateCommand.Connection = Me.Connection
20909             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Stock] SET [ST_ID] = @ST_ID, [Stock_ID] = @Stock_ID, [Date] = @Date"& _
20910                 ", [SupplierID] = @SupplierID, [GrandTotal] = @GrandTotal, [TotalPayment] = @Tota"& _
20911                 "lPayment, [PaymentDue] = @PaymentDue, [Remarks] = @Remarks WHERE (([ST_ID] = @Or"& _
20912                 "iginal_ST_ID) AND ([Stock_ID] = @Original_Stock_ID) AND ([Date] = @Original_Date"& _
20913                 ") AND ([SupplierID] = @Original_SupplierID) AND ([GrandTotal] = @Original_GrandT"& _
20914                 "otal) AND ([TotalPayment] = @Original_TotalPayment) AND ([PaymentDue] = @Origina"& _
20915                 "l_PaymentDue));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ST_ID, Stock_ID, Date, SupplierID, GrandTotal, TotalPaym"& _
20916                 "ent, PaymentDue, Remarks FROM Stock WHERE (ST_ID = @ST_ID)"
20917             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
20918             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20919             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20920             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20921             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20922             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20923             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20924             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20925             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20926             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20927             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20928             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20929             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20930             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20931             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20932             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20933         End Sub
20934         
20935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20937         Private Sub InitConnection()
20938             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
20939             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
20940         End Sub
20941         
20942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20944         Private Sub InitCommandCollection()
20945             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
20946             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
20947             Me._commandCollection(0).Connection = Me.Connection
20948             Me._commandCollection(0).CommandText = "SELECT ST_ID, Stock_ID, Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, R"& _
20949                 "emarks FROM dbo.Stock"
20950             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
20951         End Sub
20952         
20953         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20954          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20955          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20956          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
20957         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.StockDataTable) As Integer
20958             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20959             If (Me.ClearBeforeFill = true) Then
20960                 dataTable.Clear
20961             End If
20962             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
20963             Return returnValue
20964         End Function
20965         
20966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20968          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20969          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
20970         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.StockDataTable
20971             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20972             Dim dataTable As SIS_DBDataSet1.StockDataTable = New SIS_DBDataSet1.StockDataTable()
20973             Me.Adapter.Fill(dataTable)
20974             Return dataTable
20975         End Function
20976         
20977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20979          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20980         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.StockDataTable) As Integer
20981             Return Me.Adapter.Update(dataTable)
20982         End Function
20983         
20984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20986          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20987         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
20988             Return Me.Adapter.Update(dataSet, "Stock")
20989         End Function
20990         
20991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20993          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20994         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
20995             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
20996         End Function
20997         
20998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21000          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21001         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
21002             Return Me.Adapter.Update(dataRows)
21003         End Function
21004         
21005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21007          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21008          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
21009         Public Overloads Overridable Function Delete(ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
21010             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ST_ID,Integer)
21011             If (Original_Stock_ID Is Nothing) Then
21012                 Throw New Global.System.ArgumentNullException("Original_Stock_ID")
21013             Else
21014                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Stock_ID,String)
21015             End If
21016             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
21017             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SupplierID,Integer)
21018             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
21019             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalPayment,Decimal)
21020             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PaymentDue,Decimal)
21021             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
21022             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21023                         <> Global.System.Data.ConnectionState.Open) Then
21024                 Me.Adapter.DeleteCommand.Connection.Open
21025             End If
21026             Try
21027                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
21028                 Return returnValue
21029             Finally
21030                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21031                     Me.Adapter.DeleteCommand.Connection.Close
21032                 End If
21033             End Try
21034         End Function
21035         
21036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21038          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21039          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
21040         Public Overloads Overridable Function Insert(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String) As Integer
21041             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ST_ID,Integer)
21042             If (Stock_ID Is Nothing) Then
21043                 Throw New Global.System.ArgumentNullException("Stock_ID")
21044             Else
21045                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Stock_ID,String)
21046             End If
21047             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
21048             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SupplierID,Integer)
21049             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
21050             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalPayment,Decimal)
21051             Me.Adapter.InsertCommand.Parameters(6).Value = CType(PaymentDue,Decimal)
21052             If (Remarks Is Nothing) Then
21053                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
21054             Else
21055                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Remarks,String)
21056             End If
21057             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
21058             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21059                         <> Global.System.Data.ConnectionState.Open) Then
21060                 Me.Adapter.InsertCommand.Connection.Open
21061             End If
21062             Try
21063                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
21064                 Return returnValue
21065             Finally
21066                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21067                     Me.Adapter.InsertCommand.Connection.Close
21068                 End If
21069             End Try
21070         End Function
21071         
21072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21074          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21075          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21076         Public Overloads Overridable Function Update(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String, ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
21077             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ST_ID,Integer)
21078             If (Stock_ID Is Nothing) Then
21079                 Throw New Global.System.ArgumentNullException("Stock_ID")
21080             Else
21081                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Stock_ID,String)
21082             End If
21083             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
21084             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SupplierID,Integer)
21085             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
21086             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalPayment,Decimal)
21087             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PaymentDue,Decimal)
21088             If (Remarks Is Nothing) Then
21089                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
21090             Else
21091                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Remarks,String)
21092             End If
21093             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ST_ID,Integer)
21094             If (Original_Stock_ID Is Nothing) Then
21095                 Throw New Global.System.ArgumentNullException("Original_Stock_ID")
21096             Else
21097                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Stock_ID,String)
21098             End If
21099             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Date,Date)
21100             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SupplierID,Integer)
21101             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GrandTotal,Decimal)
21102             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_TotalPayment,Decimal)
21103             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_PaymentDue,Decimal)
21104             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
21105             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21106                         <> Global.System.Data.ConnectionState.Open) Then
21107                 Me.Adapter.UpdateCommand.Connection.Open
21108             End If
21109             Try
21110                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
21111                 Return returnValue
21112             Finally
21113                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21114                     Me.Adapter.UpdateCommand.Connection.Close
21115                 End If
21116             End Try
21117         End Function
21118         
21119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21121          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21122          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21123         Public Overloads Overridable Function Update(ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String, ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
21124             Return Me.Update(Original_ST_ID, Stock_ID, _Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, Remarks, Original_ST_ID, Original_Stock_ID, Original_Date, Original_SupplierID, Original_GrandTotal, Original_TotalPayment, Original_PaymentDue)
21125         End Function
21126     End Class
21127     
21128     '''<summary>
21129     '''Represents the connection and commands used to retrieve and save data.
21130     '''</summary>
21131     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21132      Global.System.ComponentModel.ToolboxItem(true), _
21133      Global.System.ComponentModel.DataObjectAttribute(true), _
21134      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
21135         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
21136      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21137     Partial Public Class Stock_ProductTableAdapter
21138         Inherits Global.System.ComponentModel.Component
21139         
21140         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
21141         
21142         Private _connection As Global.System.Data.SqlClient.SqlConnection
21143         
21144         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
21145         
21146         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
21147         
21148         Private _clearBeforeFill As Boolean
21149         
21150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21152         Public Sub New()
21153             MyBase.New
21154             Me.ClearBeforeFill = true
21155         End Sub
21156         
21157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21159         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
21160             Get
21161                 If (Me._adapter Is Nothing) Then
21162                     Me.InitAdapter
21163                 End If
21164                 Return Me._adapter
21165             End Get
21166         End Property
21167         
21168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21170         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
21171             Get
21172                 If (Me._connection Is Nothing) Then
21173                     Me.InitConnection
21174                 End If
21175                 Return Me._connection
21176             End Get
21177             Set
21178                 Me._connection = value
21179                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
21180                     Me.Adapter.InsertCommand.Connection = value
21181                 End If
21182                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
21183                     Me.Adapter.DeleteCommand.Connection = value
21184                 End If
21185                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
21186                     Me.Adapter.UpdateCommand.Connection = value
21187                 End If
21188                 Dim i As Integer = 0
21189                 Do While (i < Me.CommandCollection.Length)
21190                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
21191                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
21192                     End If
21193                     i = (i + 1)
21194                 Loop
21195             End Set
21196         End Property
21197         
21198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21200         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
21201             Get
21202                 Return Me._transaction
21203             End Get
21204             Set
21205                 Me._transaction = value
21206                 Dim i As Integer = 0
21207                 Do While (i < Me.CommandCollection.Length)
21208                     Me.CommandCollection(i).Transaction = Me._transaction
21209                     i = (i + 1)
21210                 Loop
21211                 If ((Not (Me.Adapter) Is Nothing) _
21212                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
21213                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
21214                 End If
21215                 If ((Not (Me.Adapter) Is Nothing) _
21216                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
21217                     Me.Adapter.InsertCommand.Transaction = Me._transaction
21218                 End If
21219                 If ((Not (Me.Adapter) Is Nothing) _
21220                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
21221                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
21222                 End If
21223             End Set
21224         End Property
21225         
21226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21228         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
21229             Get
21230                 If (Me._commandCollection Is Nothing) Then
21231                     Me.InitCommandCollection
21232                 End If
21233                 Return Me._commandCollection
21234             End Get
21235         End Property
21236         
21237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21239         Public Property ClearBeforeFill() As Boolean
21240             Get
21241                 Return Me._clearBeforeFill
21242             End Get
21243             Set
21244                 Me._clearBeforeFill = value
21245             End Set
21246         End Property
21247         
21248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21250         Private Sub InitAdapter()
21251             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
21252             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
21253             tableMapping.SourceTable = "Table"
21254             tableMapping.DataSetTable = "Stock_Product"
21255             tableMapping.ColumnMappings.Add("SP_ID", "SP_ID")
21256             tableMapping.ColumnMappings.Add("StockID", "StockID")
21257             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
21258             tableMapping.ColumnMappings.Add("Qty", "Qty")
21259             tableMapping.ColumnMappings.Add("Price", "Price")
21260             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
21261             Me._adapter.TableMappings.Add(tableMapping)
21262             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
21263             Me._adapter.DeleteCommand.Connection = Me.Connection
21264             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Stock_Product] WHERE (([SP_ID] = @Original_SP_ID) AND ([StockI"& _
21265                 "D] = @Original_StockID) AND ([ProductID] = @Original_ProductID) AND ([Qty] = @Or"& _
21266                 "iginal_Qty) AND ([Price] = @Original_Price) AND ([TotalAmount] = @Original_Total"& _
21267                 "Amount))"
21268             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
21269             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21270             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21271             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21272             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21273             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21274             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21275             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
21276             Me._adapter.InsertCommand.Connection = Me.Connection
21277             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Stock_Product] ([StockID], [ProductID], [Qty], [Price], [Total"& _
21278                 "Amount]) VALUES (@StockID, @ProductID, @Qty, @Price, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SP_I"& _
21279                 "D, StockID, ProductID, Qty, Price, TotalAmount FROM Stock_Product WHERE (SP_ID ="& _
21280                 " SCOPE_IDENTITY())"
21281             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
21282             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21283             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21284             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21285             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21286             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21287             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
21288             Me._adapter.UpdateCommand.Connection = Me.Connection
21289             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Stock_Product] SET [StockID] = @StockID, [ProductID] = @ProductID, "& _
21290                 "[Qty] = @Qty, [Price] = @Price, [TotalAmount] = @TotalAmount WHERE (([SP_ID] = @"& _
21291                 "Original_SP_ID) AND ([StockID] = @Original_StockID) AND ([ProductID] = @Original"& _
21292                 "_ProductID) AND ([Qty] = @Original_Qty) AND ([Price] = @Original_Price) AND ([To"& _
21293                 "talAmount] = @Original_TotalAmount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SP_ID, StockID, ProductID, Qty, Pr"& _
21294                 "ice, TotalAmount FROM Stock_Product WHERE (SP_ID = @SP_ID)"
21295             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
21296             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21297             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21298             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21299             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21300             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21301             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21302             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21303             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21304             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21305             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21306             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21307             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21308         End Sub
21309         
21310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21312         Private Sub InitConnection()
21313             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
21314             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
21315         End Sub
21316         
21317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21319         Private Sub InitCommandCollection()
21320             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
21321             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
21322             Me._commandCollection(0).Connection = Me.Connection
21323             Me._commandCollection(0).CommandText = "SELECT SP_ID, StockID, ProductID, Qty, Price, TotalAmount FROM dbo.Stock_Product"
21324             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
21325         End Sub
21326         
21327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21329          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21330          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
21331         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Stock_ProductDataTable) As Integer
21332             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21333             If (Me.ClearBeforeFill = true) Then
21334                 dataTable.Clear
21335             End If
21336             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
21337             Return returnValue
21338         End Function
21339         
21340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21342          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21343          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
21344         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Stock_ProductDataTable
21345             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21346             Dim dataTable As SIS_DBDataSet1.Stock_ProductDataTable = New SIS_DBDataSet1.Stock_ProductDataTable()
21347             Me.Adapter.Fill(dataTable)
21348             Return dataTable
21349         End Function
21350         
21351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21353          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21354         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Stock_ProductDataTable) As Integer
21355             Return Me.Adapter.Update(dataTable)
21356         End Function
21357         
21358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21360          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21361         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
21362             Return Me.Adapter.Update(dataSet, "Stock_Product")
21363         End Function
21364         
21365         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21366          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21367          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21368         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
21369             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
21370         End Function
21371         
21372         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21373          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21374          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21375         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
21376             Return Me.Adapter.Update(dataRows)
21377         End Function
21378         
21379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21381          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21382          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
21383         Public Overloads Overridable Function Delete(ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
21384             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SP_ID,Integer)
21385             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StockID,Integer)
21386             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
21387             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Qty,Integer)
21388             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Price,Decimal)
21389             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalAmount,Decimal)
21390             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
21391             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21392                         <> Global.System.Data.ConnectionState.Open) Then
21393                 Me.Adapter.DeleteCommand.Connection.Open
21394             End If
21395             Try
21396                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
21397                 Return returnValue
21398             Finally
21399                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21400                     Me.Adapter.DeleteCommand.Connection.Close
21401                 End If
21402             End Try
21403         End Function
21404         
21405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21407          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21408          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
21409         Public Overloads Overridable Function Insert(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal) As Integer
21410             Me.Adapter.InsertCommand.Parameters(0).Value = CType(StockID,Integer)
21411             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
21412             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Qty,Integer)
21413             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Price,Decimal)
21414             Me.Adapter.InsertCommand.Parameters(4).Value = CType(TotalAmount,Decimal)
21415             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
21416             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21417                         <> Global.System.Data.ConnectionState.Open) Then
21418                 Me.Adapter.InsertCommand.Connection.Open
21419             End If
21420             Try
21421                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
21422                 Return returnValue
21423             Finally
21424                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21425                     Me.Adapter.InsertCommand.Connection.Close
21426                 End If
21427             End Try
21428         End Function
21429         
21430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21432          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21433          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21434         Public Overloads Overridable Function Update(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal, ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal, ByVal SP_ID As Integer) As Integer
21435             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(StockID,Integer)
21436             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
21437             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Qty,Integer)
21438             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Price,Decimal)
21439             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TotalAmount,Decimal)
21440             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SP_ID,Integer)
21441             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_StockID,Integer)
21442             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ProductID,Integer)
21443             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Qty,Integer)
21444             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Price,Decimal)
21445             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_TotalAmount,Decimal)
21446             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SP_ID,Integer)
21447             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
21448             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21449                         <> Global.System.Data.ConnectionState.Open) Then
21450                 Me.Adapter.UpdateCommand.Connection.Open
21451             End If
21452             Try
21453                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
21454                 Return returnValue
21455             Finally
21456                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21457                     Me.Adapter.UpdateCommand.Connection.Close
21458                 End If
21459             End Try
21460         End Function
21461         
21462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21464          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21465          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21466         Public Overloads Overridable Function Update(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal, ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
21467             Return Me.Update(StockID, ProductID, Qty, Price, TotalAmount, Original_SP_ID, Original_StockID, Original_ProductID, Original_Qty, Original_Price, Original_TotalAmount, Original_SP_ID)
21468         End Function
21469     End Class
21470     
21471     '''<summary>
21472     '''Represents the connection and commands used to retrieve and save data.
21473     '''</summary>
21474     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21475      Global.System.ComponentModel.ToolboxItem(true), _
21476      Global.System.ComponentModel.DataObjectAttribute(true), _
21477      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
21478         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
21479      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21480     Partial Public Class SubCategoryTableAdapter
21481         Inherits Global.System.ComponentModel.Component
21482         
21483         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
21484         
21485         Private _connection As Global.System.Data.SqlClient.SqlConnection
21486         
21487         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
21488         
21489         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
21490         
21491         Private _clearBeforeFill As Boolean
21492         
21493         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21494          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21495         Public Sub New()
21496             MyBase.New
21497             Me.ClearBeforeFill = true
21498         End Sub
21499         
21500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21502         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
21503             Get
21504                 If (Me._adapter Is Nothing) Then
21505                     Me.InitAdapter
21506                 End If
21507                 Return Me._adapter
21508             End Get
21509         End Property
21510         
21511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21513         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
21514             Get
21515                 If (Me._connection Is Nothing) Then
21516                     Me.InitConnection
21517                 End If
21518                 Return Me._connection
21519             End Get
21520             Set
21521                 Me._connection = value
21522                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
21523                     Me.Adapter.InsertCommand.Connection = value
21524                 End If
21525                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
21526                     Me.Adapter.DeleteCommand.Connection = value
21527                 End If
21528                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
21529                     Me.Adapter.UpdateCommand.Connection = value
21530                 End If
21531                 Dim i As Integer = 0
21532                 Do While (i < Me.CommandCollection.Length)
21533                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
21534                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
21535                     End If
21536                     i = (i + 1)
21537                 Loop
21538             End Set
21539         End Property
21540         
21541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21543         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
21544             Get
21545                 Return Me._transaction
21546             End Get
21547             Set
21548                 Me._transaction = value
21549                 Dim i As Integer = 0
21550                 Do While (i < Me.CommandCollection.Length)
21551                     Me.CommandCollection(i).Transaction = Me._transaction
21552                     i = (i + 1)
21553                 Loop
21554                 If ((Not (Me.Adapter) Is Nothing) _
21555                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
21556                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
21557                 End If
21558                 If ((Not (Me.Adapter) Is Nothing) _
21559                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
21560                     Me.Adapter.InsertCommand.Transaction = Me._transaction
21561                 End If
21562                 If ((Not (Me.Adapter) Is Nothing) _
21563                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
21564                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
21565                 End If
21566             End Set
21567         End Property
21568         
21569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21571         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
21572             Get
21573                 If (Me._commandCollection Is Nothing) Then
21574                     Me.InitCommandCollection
21575                 End If
21576                 Return Me._commandCollection
21577             End Get
21578         End Property
21579         
21580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21582         Public Property ClearBeforeFill() As Boolean
21583             Get
21584                 Return Me._clearBeforeFill
21585             End Get
21586             Set
21587                 Me._clearBeforeFill = value
21588             End Set
21589         End Property
21590         
21591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21593         Private Sub InitAdapter()
21594             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
21595             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
21596             tableMapping.SourceTable = "Table"
21597             tableMapping.DataSetTable = "SubCategory"
21598             tableMapping.ColumnMappings.Add("ID", "ID")
21599             tableMapping.ColumnMappings.Add("SubCategoryName", "SubCategoryName")
21600             tableMapping.ColumnMappings.Add("Category", "Category")
21601             Me._adapter.TableMappings.Add(tableMapping)
21602             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
21603             Me._adapter.DeleteCommand.Connection = Me.Connection
21604             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SubCategory] WHERE (([ID] = @Original_ID) AND ([SubCategoryNam"& _
21605                 "e] = @Original_SubCategoryName) AND ([Category] = @Original_Category))"
21606             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
21607             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21608             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21609             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21610             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
21611             Me._adapter.InsertCommand.Connection = Me.Connection
21612             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SubCategory] ([ID], [SubCategoryName], [Category]) VALUES (@ID"& _
21613                 ", @SubCategoryName, @Category);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SubCategoryName, Category FROM SubCa"& _
21614                 "tegory WHERE (ID = @ID)"
21615             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
21616             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21617             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21618             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21619             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
21620             Me._adapter.UpdateCommand.Connection = Me.Connection
21621             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SubCategory] SET [ID] = @ID, [SubCategoryName] = @SubCategoryName, "& _
21622                 "[Category] = @Category WHERE (([ID] = @Original_ID) AND ([SubCategoryName] = @Or"& _
21623                 "iginal_SubCategoryName) AND ([Category] = @Original_Category));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SubC"& _
21624                 "ategoryName, Category FROM SubCategory WHERE (ID = @ID)"
21625             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
21626             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21627             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21628             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21629             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21630             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21631             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21632         End Sub
21633         
21634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21636         Private Sub InitConnection()
21637             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
21638             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
21639         End Sub
21640         
21641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21643         Private Sub InitCommandCollection()
21644             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
21645             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
21646             Me._commandCollection(0).Connection = Me.Connection
21647             Me._commandCollection(0).CommandText = "SELECT ID, SubCategoryName, Category FROM dbo.SubCategory"
21648             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
21649         End Sub
21650         
21651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21653          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21654          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
21655         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.SubCategoryDataTable) As Integer
21656             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21657             If (Me.ClearBeforeFill = true) Then
21658                 dataTable.Clear
21659             End If
21660             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
21661             Return returnValue
21662         End Function
21663         
21664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21666          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21667          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
21668         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.SubCategoryDataTable
21669             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21670             Dim dataTable As SIS_DBDataSet1.SubCategoryDataTable = New SIS_DBDataSet1.SubCategoryDataTable()
21671             Me.Adapter.Fill(dataTable)
21672             Return dataTable
21673         End Function
21674         
21675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21677          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21678         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.SubCategoryDataTable) As Integer
21679             Return Me.Adapter.Update(dataTable)
21680         End Function
21681         
21682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21684          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21685         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
21686             Return Me.Adapter.Update(dataSet, "SubCategory")
21687         End Function
21688         
21689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21691          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21692         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
21693             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
21694         End Function
21695         
21696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21698          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21699         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
21700             Return Me.Adapter.Update(dataRows)
21701         End Function
21702         
21703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21705          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21706          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
21707         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
21708             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
21709             If (Original_SubCategoryName Is Nothing) Then
21710                 Throw New Global.System.ArgumentNullException("Original_SubCategoryName")
21711             Else
21712                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SubCategoryName,String)
21713             End If
21714             If (Original_Category Is Nothing) Then
21715                 Throw New Global.System.ArgumentNullException("Original_Category")
21716             Else
21717                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Category,String)
21718             End If
21719             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
21720             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21721                         <> Global.System.Data.ConnectionState.Open) Then
21722                 Me.Adapter.DeleteCommand.Connection.Open
21723             End If
21724             Try
21725                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
21726                 Return returnValue
21727             Finally
21728                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21729                     Me.Adapter.DeleteCommand.Connection.Close
21730                 End If
21731             End Try
21732         End Function
21733         
21734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21736          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21737          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
21738         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal Category As String) As Integer
21739             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
21740             If (SubCategoryName Is Nothing) Then
21741                 Throw New Global.System.ArgumentNullException("SubCategoryName")
21742             Else
21743                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SubCategoryName,String)
21744             End If
21745             If (Category Is Nothing) Then
21746                 Throw New Global.System.ArgumentNullException("Category")
21747             Else
21748                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Category,String)
21749             End If
21750             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
21751             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21752                         <> Global.System.Data.ConnectionState.Open) Then
21753                 Me.Adapter.InsertCommand.Connection.Open
21754             End If
21755             Try
21756                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
21757                 Return returnValue
21758             Finally
21759                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21760                     Me.Adapter.InsertCommand.Connection.Close
21761                 End If
21762             End Try
21763         End Function
21764         
21765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21767          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21768          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21769         Public Overloads Overridable Function Update(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal Category As String, ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
21770             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
21771             If (SubCategoryName Is Nothing) Then
21772                 Throw New Global.System.ArgumentNullException("SubCategoryName")
21773             Else
21774                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SubCategoryName,String)
21775             End If
21776             If (Category Is Nothing) Then
21777                 Throw New Global.System.ArgumentNullException("Category")
21778             Else
21779                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Category,String)
21780             End If
21781             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
21782             If (Original_SubCategoryName Is Nothing) Then
21783                 Throw New Global.System.ArgumentNullException("Original_SubCategoryName")
21784             Else
21785                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SubCategoryName,String)
21786             End If
21787             If (Original_Category Is Nothing) Then
21788                 Throw New Global.System.ArgumentNullException("Original_Category")
21789             Else
21790                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Category,String)
21791             End If
21792             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
21793             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21794                         <> Global.System.Data.ConnectionState.Open) Then
21795                 Me.Adapter.UpdateCommand.Connection.Open
21796             End If
21797             Try
21798                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
21799                 Return returnValue
21800             Finally
21801                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21802                     Me.Adapter.UpdateCommand.Connection.Close
21803                 End If
21804             End Try
21805         End Function
21806         
21807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21809          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21810          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21811         Public Overloads Overridable Function Update(ByVal SubCategoryName As String, ByVal Category As String, ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
21812             Return Me.Update(Original_ID, SubCategoryName, Category, Original_ID, Original_SubCategoryName, Original_Category)
21813         End Function
21814     End Class
21815     
21816     '''<summary>
21817     '''Represents the connection and commands used to retrieve and save data.
21818     '''</summary>
21819     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21820      Global.System.ComponentModel.ToolboxItem(true), _
21821      Global.System.ComponentModel.DataObjectAttribute(true), _
21822      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
21823         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
21824      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21825     Partial Public Class SupplierTableAdapter
21826         Inherits Global.System.ComponentModel.Component
21827         
21828         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
21829         
21830         Private _connection As Global.System.Data.SqlClient.SqlConnection
21831         
21832         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
21833         
21834         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
21835         
21836         Private _clearBeforeFill As Boolean
21837         
21838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21840         Public Sub New()
21841             MyBase.New
21842             Me.ClearBeforeFill = true
21843         End Sub
21844         
21845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21847         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
21848             Get
21849                 If (Me._adapter Is Nothing) Then
21850                     Me.InitAdapter
21851                 End If
21852                 Return Me._adapter
21853             End Get
21854         End Property
21855         
21856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21858         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
21859             Get
21860                 If (Me._connection Is Nothing) Then
21861                     Me.InitConnection
21862                 End If
21863                 Return Me._connection
21864             End Get
21865             Set
21866                 Me._connection = value
21867                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
21868                     Me.Adapter.InsertCommand.Connection = value
21869                 End If
21870                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
21871                     Me.Adapter.DeleteCommand.Connection = value
21872                 End If
21873                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
21874                     Me.Adapter.UpdateCommand.Connection = value
21875                 End If
21876                 Dim i As Integer = 0
21877                 Do While (i < Me.CommandCollection.Length)
21878                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
21879                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
21880                     End If
21881                     i = (i + 1)
21882                 Loop
21883             End Set
21884         End Property
21885         
21886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21888         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
21889             Get
21890                 Return Me._transaction
21891             End Get
21892             Set
21893                 Me._transaction = value
21894                 Dim i As Integer = 0
21895                 Do While (i < Me.CommandCollection.Length)
21896                     Me.CommandCollection(i).Transaction = Me._transaction
21897                     i = (i + 1)
21898                 Loop
21899                 If ((Not (Me.Adapter) Is Nothing) _
21900                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
21901                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
21902                 End If
21903                 If ((Not (Me.Adapter) Is Nothing) _
21904                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
21905                     Me.Adapter.InsertCommand.Transaction = Me._transaction
21906                 End If
21907                 If ((Not (Me.Adapter) Is Nothing) _
21908                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
21909                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
21910                 End If
21911             End Set
21912         End Property
21913         
21914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21916         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
21917             Get
21918                 If (Me._commandCollection Is Nothing) Then
21919                     Me.InitCommandCollection
21920                 End If
21921                 Return Me._commandCollection
21922             End Get
21923         End Property
21924         
21925         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21926          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21927         Public Property ClearBeforeFill() As Boolean
21928             Get
21929                 Return Me._clearBeforeFill
21930             End Get
21931             Set
21932                 Me._clearBeforeFill = value
21933             End Set
21934         End Property
21935         
21936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21938         Private Sub InitAdapter()
21939             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
21940             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
21941             tableMapping.SourceTable = "Table"
21942             tableMapping.DataSetTable = "Supplier"
21943             tableMapping.ColumnMappings.Add("ID", "ID")
21944             tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
21945             tableMapping.ColumnMappings.Add("Name", "Name")
21946             tableMapping.ColumnMappings.Add("Address", "Address")
21947             tableMapping.ColumnMappings.Add("City", "City")
21948             tableMapping.ColumnMappings.Add("State", "State")
21949             tableMapping.ColumnMappings.Add("ZipCode", "ZipCode")
21950             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
21951             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
21952             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
21953             Me._adapter.TableMappings.Add(tableMapping)
21954             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
21955             Me._adapter.DeleteCommand.Connection = Me.Connection
21956             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Supplier] WHERE (([ID] = @Original_ID) AND ([SupplierID] = @Or"& _
21957                 "iginal_SupplierID) AND ([Name] = @Original_Name) AND ([Address] = @Original_Addr"& _
21958                 "ess) AND ([City] = @Original_City) AND ([State] = @Original_State) AND ((@IsNull"& _
21959                 "_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCode] = @Original_ZipCode)) AND ([Co"& _
21960                 "ntactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL)"& _
21961                 " OR ([EmailID] = @Original_EmailID)))"
21962             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
21963             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21964             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21965             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21966             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21967             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21968             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21969             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
21970             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21971             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21972             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
21973             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21974             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
21975             Me._adapter.InsertCommand.Connection = Me.Connection
21976             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Supplier] ([ID], [SupplierID], [Name], [Address], [City], [Sta"& _
21977                 "te], [ZipCode], [ContactNo], [EmailID], [Remarks]) VALUES (@ID, @SupplierID, @Na"& _
21978                 "me, @Address, @City, @State, @ZipCode, @ContactNo, @EmailID, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
21979                 "ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks"& _
21980                 " FROM Supplier WHERE (ID = @ID)"
21981             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
21982             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21983             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21984             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21985             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21986             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21987             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21988             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21989             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21990             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21991             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21992             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
21993             Me._adapter.UpdateCommand.Connection = Me.Connection
21994             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Supplier] SET [ID] = @ID, [SupplierID] = @SupplierID, [Name] = @Nam"& _
21995                 "e, [Address] = @Address, [City] = @City, [State] = @State, [ZipCode] = @ZipCode,"& _
21996                 " [ContactNo] = @ContactNo, [EmailID] = @EmailID, [Remarks] = @Remarks WHERE (([I"& _
21997                 "D] = @Original_ID) AND ([SupplierID] = @Original_SupplierID) AND ([Name] = @Orig"& _
21998                 "inal_Name) AND ([Address] = @Original_Address) AND ([City] = @Original_City) AND"& _
21999                 " ([State] = @Original_State) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR"& _
22000                 " ([ZipCode] = @Original_ZipCode)) AND ([ContactNo] = @Original_ContactNo) AND (("& _
22001                 "@IsNull_EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)));"& _
22002                 ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID"& _
22003                 ", Remarks FROM Supplier WHERE (ID = @ID)"
22004             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
22005             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22006             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22007             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22008             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22009             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22010             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22011             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22012             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22013             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22014             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22015             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22016             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22017             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22018             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22019             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22020             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22021             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
22022             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22023             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22024             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
22025             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22026         End Sub
22027         
22028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22030         Private Sub InitConnection()
22031             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
22032             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
22033         End Sub
22034         
22035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22037         Private Sub InitCommandCollection()
22038             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
22039             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
22040             Me._commandCollection(0).Connection = Me.Connection
22041             Me._commandCollection(0).CommandText = "SELECT ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, R"& _
22042                 "emarks FROM dbo.Supplier"
22043             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
22044         End Sub
22045         
22046         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22047          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22048          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22049          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
22050         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.SupplierDataTable) As Integer
22051             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22052             If (Me.ClearBeforeFill = true) Then
22053                 dataTable.Clear
22054             End If
22055             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
22056             Return returnValue
22057         End Function
22058         
22059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22061          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22062          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
22063         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.SupplierDataTable
22064             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22065             Dim dataTable As SIS_DBDataSet1.SupplierDataTable = New SIS_DBDataSet1.SupplierDataTable()
22066             Me.Adapter.Fill(dataTable)
22067             Return dataTable
22068         End Function
22069         
22070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22072          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22073         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.SupplierDataTable) As Integer
22074             Return Me.Adapter.Update(dataTable)
22075         End Function
22076         
22077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22079          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22080         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
22081             Return Me.Adapter.Update(dataSet, "Supplier")
22082         End Function
22083         
22084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22086          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22087         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
22088             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
22089         End Function
22090         
22091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22093          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22094         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
22095             Return Me.Adapter.Update(dataRows)
22096         End Function
22097         
22098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22100          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22101          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
22102         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_SupplierID As String, ByVal Original_Name As String, ByVal Original_Address As String, ByVal Original_City As String, ByVal Original_State As String, ByVal Original_ZipCode As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String) As Integer
22103             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
22104             If (Original_SupplierID Is Nothing) Then
22105                 Throw New Global.System.ArgumentNullException("Original_SupplierID")
22106             Else
22107                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SupplierID,String)
22108             End If
22109             If (Original_Name Is Nothing) Then
22110                 Throw New Global.System.ArgumentNullException("Original_Name")
22111             Else
22112                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Name,String)
22113             End If
22114             If (Original_Address Is Nothing) Then
22115                 Throw New Global.System.ArgumentNullException("Original_Address")
22116             Else
22117                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Address,String)
22118             End If
22119             If (Original_City Is Nothing) Then
22120                 Throw New Global.System.ArgumentNullException("Original_City")
22121             Else
22122                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_City,String)
22123             End If
22124             If (Original_State Is Nothing) Then
22125                 Throw New Global.System.ArgumentNullException("Original_State")
22126             Else
22127                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_State,String)
22128             End If
22129             If (Original_ZipCode Is Nothing) Then
22130                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
22131                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
22132             Else
22133                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
22134                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ZipCode,String)
22135             End If
22136             If (Original_ContactNo Is Nothing) Then
22137                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
22138             Else
22139                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ContactNo,String)
22140             End If
22141             If (Original_EmailID Is Nothing) Then
22142                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
22143                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
22144             Else
22145                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
22146                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_EmailID,String)
22147             End If
22148             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
22149             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22150                         <> Global.System.Data.ConnectionState.Open) Then
22151                 Me.Adapter.DeleteCommand.Connection.Open
22152             End If
22153             Try
22154                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
22155                 Return returnValue
22156             Finally
22157                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22158                     Me.Adapter.DeleteCommand.Connection.Close
22159                 End If
22160             End Try
22161         End Function
22162         
22163         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22164          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22165          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22166          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
22167         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal SupplierID As String, ByVal Name As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String) As Integer
22168             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
22169             If (SupplierID Is Nothing) Then
22170                 Throw New Global.System.ArgumentNullException("SupplierID")
22171             Else
22172                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SupplierID,String)
22173             End If
22174             If (Name Is Nothing) Then
22175                 Throw New Global.System.ArgumentNullException("Name")
22176             Else
22177                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
22178             End If
22179             If (Address Is Nothing) Then
22180                 Throw New Global.System.ArgumentNullException("Address")
22181             Else
22182                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Address,String)
22183             End If
22184             If (City Is Nothing) Then
22185                 Throw New Global.System.ArgumentNullException("City")
22186             Else
22187                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(City,String)
22188             End If
22189             If (State Is Nothing) Then
22190                 Throw New Global.System.ArgumentNullException("State")
22191             Else
22192                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(State,String)
22193             End If
22194             If (ZipCode Is Nothing) Then
22195                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
22196             Else
22197                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ZipCode,String)
22198             End If
22199             If (ContactNo Is Nothing) Then
22200                 Throw New Global.System.ArgumentNullException("ContactNo")
22201             Else
22202                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(ContactNo,String)
22203             End If
22204             If (EmailID Is Nothing) Then
22205                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
22206             Else
22207                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(EmailID,String)
22208             End If
22209             If (Remarks Is Nothing) Then
22210                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
22211             Else
22212                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(Remarks,String)
22213             End If
22214             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
22215             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22216                         <> Global.System.Data.ConnectionState.Open) Then
22217                 Me.Adapter.InsertCommand.Connection.Open
22218             End If
22219             Try
22220                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
22221                 Return returnValue
22222             Finally
22223                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22224                     Me.Adapter.InsertCommand.Connection.Close
22225                 End If
22226             End Try
22227         End Function
22228         
22229         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22230          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22231          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22232          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22233         Public Overloads Overridable Function Update( _
22234                     ByVal ID As Integer, _
22235                     ByVal SupplierID As String, _
22236                     ByVal Name As String, _
22237                     ByVal Address As String, _
22238                     ByVal City As String, _
22239                     ByVal State As String, _
22240                     ByVal ZipCode As String, _
22241                     ByVal ContactNo As String, _
22242                     ByVal EmailID As String, _
22243                     ByVal Remarks As String, _
22244                     ByVal Original_ID As Integer, _
22245                     ByVal Original_SupplierID As String, _
22246                     ByVal Original_Name As String, _
22247                     ByVal Original_Address As String, _
22248                     ByVal Original_City As String, _
22249                     ByVal Original_State As String, _
22250                     ByVal Original_ZipCode As String, _
22251                     ByVal Original_ContactNo As String, _
22252                     ByVal Original_EmailID As String) As Integer
22253             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
22254             If (SupplierID Is Nothing) Then
22255                 Throw New Global.System.ArgumentNullException("SupplierID")
22256             Else
22257                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SupplierID,String)
22258             End If
22259             If (Name Is Nothing) Then
22260                 Throw New Global.System.ArgumentNullException("Name")
22261             Else
22262                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
22263             End If
22264             If (Address Is Nothing) Then
22265                 Throw New Global.System.ArgumentNullException("Address")
22266             Else
22267                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Address,String)
22268             End If
22269             If (City Is Nothing) Then
22270                 Throw New Global.System.ArgumentNullException("City")
22271             Else
22272                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(City,String)
22273             End If
22274             If (State Is Nothing) Then
22275                 Throw New Global.System.ArgumentNullException("State")
22276             Else
22277                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(State,String)
22278             End If
22279             If (ZipCode Is Nothing) Then
22280                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
22281             Else
22282                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ZipCode,String)
22283             End If
22284             If (ContactNo Is Nothing) Then
22285                 Throw New Global.System.ArgumentNullException("ContactNo")
22286             Else
22287                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ContactNo,String)
22288             End If
22289             If (EmailID Is Nothing) Then
22290                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
22291             Else
22292                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EmailID,String)
22293             End If
22294             If (Remarks Is Nothing) Then
22295                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
22296             Else
22297                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Remarks,String)
22298             End If
22299             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ID,Integer)
22300             If (Original_SupplierID Is Nothing) Then
22301                 Throw New Global.System.ArgumentNullException("Original_SupplierID")
22302             Else
22303                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SupplierID,String)
22304             End If
22305             If (Original_Name Is Nothing) Then
22306                 Throw New Global.System.ArgumentNullException("Original_Name")
22307             Else
22308                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Name,String)
22309             End If
22310             If (Original_Address Is Nothing) Then
22311                 Throw New Global.System.ArgumentNullException("Original_Address")
22312             Else
22313                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Address,String)
22314             End If
22315             If (Original_City Is Nothing) Then
22316                 Throw New Global.System.ArgumentNullException("Original_City")
22317             Else
22318                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_City,String)
22319             End If
22320             If (Original_State Is Nothing) Then
22321                 Throw New Global.System.ArgumentNullException("Original_State")
22322             Else
22323                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_State,String)
22324             End If
22325             If (Original_ZipCode Is Nothing) Then
22326                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
22327                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
22328             Else
22329                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
22330                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ZipCode,String)
22331             End If
22332             If (Original_ContactNo Is Nothing) Then
22333                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
22334             Else
22335                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ContactNo,String)
22336             End If
22337             If (Original_EmailID Is Nothing) Then
22338                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
22339                 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
22340             Else
22341                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
22342                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_EmailID,String)
22343             End If
22344             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
22345             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22346                         <> Global.System.Data.ConnectionState.Open) Then
22347                 Me.Adapter.UpdateCommand.Connection.Open
22348             End If
22349             Try
22350                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
22351                 Return returnValue
22352             Finally
22353                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22354                     Me.Adapter.UpdateCommand.Connection.Close
22355                 End If
22356             End Try
22357         End Function
22358         
22359         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22360          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22361          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22362          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22363         Public Overloads Overridable Function Update( _
22364                     ByVal SupplierID As String, _
22365                     ByVal Name As String, _
22366                     ByVal Address As String, _
22367                     ByVal City As String, _
22368                     ByVal State As String, _
22369                     ByVal ZipCode As String, _
22370                     ByVal ContactNo As String, _
22371                     ByVal EmailID As String, _
22372                     ByVal Remarks As String, _
22373                     ByVal Original_ID As Integer, _
22374                     ByVal Original_SupplierID As String, _
22375                     ByVal Original_Name As String, _
22376                     ByVal Original_Address As String, _
22377                     ByVal Original_City As String, _
22378                     ByVal Original_State As String, _
22379                     ByVal Original_ZipCode As String, _
22380                     ByVal Original_ContactNo As String, _
22381                     ByVal Original_EmailID As String) As Integer
22382             Return Me.Update(Original_ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Original_ID, Original_SupplierID, Original_Name, Original_Address, Original_City, Original_State, Original_ZipCode, Original_ContactNo, Original_EmailID)
22383         End Function
22384     End Class
22385     
22386     '''<summary>
22387     '''Represents the connection and commands used to retrieve and save data.
22388     '''</summary>
22389     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
22390      Global.System.ComponentModel.ToolboxItem(true), _
22391      Global.System.ComponentModel.DataObjectAttribute(true), _
22392      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
22393         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
22394      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22395     Partial Public Class Temp_StockTableAdapter
22396         Inherits Global.System.ComponentModel.Component
22397         
22398         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
22399         
22400         Private _connection As Global.System.Data.SqlClient.SqlConnection
22401         
22402         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
22403         
22404         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
22405         
22406         Private _clearBeforeFill As Boolean
22407         
22408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22410         Public Sub New()
22411             MyBase.New
22412             Me.ClearBeforeFill = true
22413         End Sub
22414         
22415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22417         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
22418             Get
22419                 If (Me._adapter Is Nothing) Then
22420                     Me.InitAdapter
22421                 End If
22422                 Return Me._adapter
22423             End Get
22424         End Property
22425         
22426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22428         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
22429             Get
22430                 If (Me._connection Is Nothing) Then
22431                     Me.InitConnection
22432                 End If
22433                 Return Me._connection
22434             End Get
22435             Set
22436                 Me._connection = value
22437                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
22438                     Me.Adapter.InsertCommand.Connection = value
22439                 End If
22440                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
22441                     Me.Adapter.DeleteCommand.Connection = value
22442                 End If
22443                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
22444                     Me.Adapter.UpdateCommand.Connection = value
22445                 End If
22446                 Dim i As Integer = 0
22447                 Do While (i < Me.CommandCollection.Length)
22448                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
22449                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
22450                     End If
22451                     i = (i + 1)
22452                 Loop
22453             End Set
22454         End Property
22455         
22456         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22457          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22458         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
22459             Get
22460                 Return Me._transaction
22461             End Get
22462             Set
22463                 Me._transaction = value
22464                 Dim i As Integer = 0
22465                 Do While (i < Me.CommandCollection.Length)
22466                     Me.CommandCollection(i).Transaction = Me._transaction
22467                     i = (i + 1)
22468                 Loop
22469                 If ((Not (Me.Adapter) Is Nothing) _
22470                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
22471                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
22472                 End If
22473                 If ((Not (Me.Adapter) Is Nothing) _
22474                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
22475                     Me.Adapter.InsertCommand.Transaction = Me._transaction
22476                 End If
22477                 If ((Not (Me.Adapter) Is Nothing) _
22478                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
22479                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
22480                 End If
22481             End Set
22482         End Property
22483         
22484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22486         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
22487             Get
22488                 If (Me._commandCollection Is Nothing) Then
22489                     Me.InitCommandCollection
22490                 End If
22491                 Return Me._commandCollection
22492             End Get
22493         End Property
22494         
22495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22497         Public Property ClearBeforeFill() As Boolean
22498             Get
22499                 Return Me._clearBeforeFill
22500             End Get
22501             Set
22502                 Me._clearBeforeFill = value
22503             End Set
22504         End Property
22505         
22506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22508         Private Sub InitAdapter()
22509             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
22510             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
22511             tableMapping.SourceTable = "Table"
22512             tableMapping.DataSetTable = "Temp_Stock"
22513             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
22514             tableMapping.ColumnMappings.Add("Qty", "Qty")
22515             Me._adapter.TableMappings.Add(tableMapping)
22516             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
22517             Me._adapter.DeleteCommand.Connection = Me.Connection
22518             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Temp_Stock] WHERE (([ProductID] = @Original_ProductID) AND ([Q"& _
22519                 "ty] = @Original_Qty))"
22520             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
22521             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22522             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22523             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
22524             Me._adapter.InsertCommand.Connection = Me.Connection
22525             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Temp_Stock] ([ProductID], [Qty]) VALUES (@ProductID, @Qty);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _
22526                 "ELECT ProductID, Qty FROM Temp_Stock WHERE (ProductID = @ProductID)"
22527             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
22528             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22529             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22530             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
22531             Me._adapter.UpdateCommand.Connection = Me.Connection
22532             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Temp_Stock] SET [ProductID] = @ProductID, [Qty] = @Qty WHERE (([Pro"& _
22533                 "ductID] = @Original_ProductID) AND ([Qty] = @Original_Qty));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ProductID, "& _
22534                 "Qty FROM Temp_Stock WHERE (ProductID = @ProductID)"
22535             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
22536             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22537             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22538             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22539             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22540         End Sub
22541         
22542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22544         Private Sub InitConnection()
22545             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
22546             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
22547         End Sub
22548         
22549         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22550          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22551         Private Sub InitCommandCollection()
22552             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
22553             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
22554             Me._commandCollection(0).Connection = Me.Connection
22555             Me._commandCollection(0).CommandText = "SELECT ProductID, Qty FROM dbo.Temp_Stock"
22556             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
22557         End Sub
22558         
22559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22561          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22562          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
22563         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet1.Temp_StockDataTable) As Integer
22564             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22565             If (Me.ClearBeforeFill = true) Then
22566                 dataTable.Clear
22567             End If
22568             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
22569             Return returnValue
22570         End Function
22571         
22572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22574          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22575          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
22576         Public Overloads Overridable Function GetData() As SIS_DBDataSet1.Temp_StockDataTable
22577             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22578             Dim dataTable As SIS_DBDataSet1.Temp_StockDataTable = New SIS_DBDataSet1.Temp_StockDataTable()
22579             Me.Adapter.Fill(dataTable)
22580             Return dataTable
22581         End Function
22582         
22583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22585          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22586         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet1.Temp_StockDataTable) As Integer
22587             Return Me.Adapter.Update(dataTable)
22588         End Function
22589         
22590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22592          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22593         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet1) As Integer
22594             Return Me.Adapter.Update(dataSet, "Temp_Stock")
22595         End Function
22596         
22597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22599          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22600         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
22601             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
22602         End Function
22603         
22604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22606          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22607         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
22608             Return Me.Adapter.Update(dataRows)
22609         End Function
22610         
22611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22613          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22614          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
22615         Public Overloads Overridable Function Delete(ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
22616             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ProductID,Integer)
22617             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Qty,Integer)
22618             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
22619             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22620                         <> Global.System.Data.ConnectionState.Open) Then
22621                 Me.Adapter.DeleteCommand.Connection.Open
22622             End If
22623             Try
22624                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
22625                 Return returnValue
22626             Finally
22627                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22628                     Me.Adapter.DeleteCommand.Connection.Close
22629                 End If
22630             End Try
22631         End Function
22632         
22633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22635          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22636          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
22637         Public Overloads Overridable Function Insert(ByVal ProductID As Integer, ByVal Qty As Integer) As Integer
22638             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductID,Integer)
22639             Me.Adapter.InsertCommand.Parameters(1).Value = CType(Qty,Integer)
22640             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
22641             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22642                         <> Global.System.Data.ConnectionState.Open) Then
22643                 Me.Adapter.InsertCommand.Connection.Open
22644             End If
22645             Try
22646                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
22647                 Return returnValue
22648             Finally
22649                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22650                     Me.Adapter.InsertCommand.Connection.Close
22651                 End If
22652             End Try
22653         End Function
22654         
22655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22657          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22658          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22659         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
22660             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductID,Integer)
22661             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Qty,Integer)
22662             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
22663             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Qty,Integer)
22664             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
22665             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22666                         <> Global.System.Data.ConnectionState.Open) Then
22667                 Me.Adapter.UpdateCommand.Connection.Open
22668             End If
22669             Try
22670                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
22671                 Return returnValue
22672             Finally
22673                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22674                     Me.Adapter.UpdateCommand.Connection.Close
22675                 End If
22676             End Try
22677         End Function
22678         
22679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22681          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22682          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22683         Public Overloads Overridable Function Update(ByVal Qty As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
22684             Return Me.Update(Original_ProductID, Qty, Original_ProductID, Original_Qty)
22685         End Function
22686     End Class
22687     
22688     '''<summary>
22689     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
22690     '''</summary>
22691     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
22692      Global.System.ComponentModel.ToolboxItem(true), _
22693      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
22694         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
22695      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
22696     Partial Public Class TableAdapterManager
22697         Inherits Global.System.ComponentModel.Component
22698         
22699         Private _updateOrder As UpdateOrderOption
22700         
22701         Private _activationTableAdapter As ActivationTableAdapter
22702         
22703         Private _categoryTableAdapter As CategoryTableAdapter
22704         
22705         Private _companyTableAdapter As CompanyTableAdapter
22706         
22707         Private _company_ContactsTableAdapter As Company_ContactsTableAdapter
22708         
22709         Private _customerTableAdapter As CustomerTableAdapter
22710         
22711         Private _invoice_PaymentTableAdapter As Invoice_PaymentTableAdapter
22712         
22713         Private _invoice_ProductTableAdapter As Invoice_ProductTableAdapter
22714         
22715         Private _invoice1_PaymentTableAdapter As Invoice1_PaymentTableAdapter
22716         
22717         Private _invoice1_ProductTableAdapter As Invoice1_ProductTableAdapter
22718         
22719         Private _invoiceInfoTableAdapter As InvoiceInfoTableAdapter
22720         
22721         Private _invoiceInfo1TableAdapter As InvoiceInfo1TableAdapter
22722         
22723         Private _logsTableAdapter As LogsTableAdapter
22724         
22725         Private _productTableAdapter As ProductTableAdapter
22726         
22727         Private _product_JoinTableAdapter As Product_JoinTableAdapter
22728         
22729         Private _quotationTableAdapter As QuotationTableAdapter
22730         
22731         Private _quotation_JoinTableAdapter As Quotation_JoinTableAdapter
22732         
22733         Private _registrationTableAdapter As RegistrationTableAdapter
22734         
22735         Private _serviceTableAdapter As ServiceTableAdapter
22736         
22737         Private _stockTableAdapter As StockTableAdapter
22738         
22739         Private _stock_ProductTableAdapter As Stock_ProductTableAdapter
22740         
22741         Private _subCategoryTableAdapter As SubCategoryTableAdapter
22742         
22743         Private _supplierTableAdapter As SupplierTableAdapter
22744         
22745         Private _temp_StockTableAdapter As Temp_StockTableAdapter
22746         
22747         Private _backupDataSetBeforeUpdate As Boolean
22748         
22749         Private _connection As Global.System.Data.IDbConnection
22750         
22751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22753         Public Property UpdateOrder() As UpdateOrderOption
22754             Get
22755                 Return Me._updateOrder
22756             End Get
22757             Set
22758                 Me._updateOrder = value
22759             End Set
22760         End Property
22761         
22762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22764          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22765             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22766             "a", "System.Drawing.Design.UITypeEditor")> _
22767         Public Property ActivationTableAdapter() As ActivationTableAdapter
22768             Get
22769                 Return Me._activationTableAdapter
22770             End Get
22771             Set
22772                 Me._activationTableAdapter = value
22773             End Set
22774         End Property
22775         
22776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22778          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22779             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22780             "a", "System.Drawing.Design.UITypeEditor")> _
22781         Public Property CategoryTableAdapter() As CategoryTableAdapter
22782             Get
22783                 Return Me._categoryTableAdapter
22784             End Get
22785             Set
22786                 Me._categoryTableAdapter = value
22787             End Set
22788         End Property
22789         
22790         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22791          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22792          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22793             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22794             "a", "System.Drawing.Design.UITypeEditor")> _
22795         Public Property CompanyTableAdapter() As CompanyTableAdapter
22796             Get
22797                 Return Me._companyTableAdapter
22798             End Get
22799             Set
22800                 Me._companyTableAdapter = value
22801             End Set
22802         End Property
22803         
22804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22806          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22807             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22808             "a", "System.Drawing.Design.UITypeEditor")> _
22809         Public Property Company_ContactsTableAdapter() As Company_ContactsTableAdapter
22810             Get
22811                 Return Me._company_ContactsTableAdapter
22812             End Get
22813             Set
22814                 Me._company_ContactsTableAdapter = value
22815             End Set
22816         End Property
22817         
22818         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22819          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22820          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22821             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22822             "a", "System.Drawing.Design.UITypeEditor")> _
22823         Public Property CustomerTableAdapter() As CustomerTableAdapter
22824             Get
22825                 Return Me._customerTableAdapter
22826             End Get
22827             Set
22828                 Me._customerTableAdapter = value
22829             End Set
22830         End Property
22831         
22832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22834          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22835             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22836             "a", "System.Drawing.Design.UITypeEditor")> _
22837         Public Property Invoice_PaymentTableAdapter() As Invoice_PaymentTableAdapter
22838             Get
22839                 Return Me._invoice_PaymentTableAdapter
22840             End Get
22841             Set
22842                 Me._invoice_PaymentTableAdapter = value
22843             End Set
22844         End Property
22845         
22846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22848          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22849             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22850             "a", "System.Drawing.Design.UITypeEditor")> _
22851         Public Property Invoice_ProductTableAdapter() As Invoice_ProductTableAdapter
22852             Get
22853                 Return Me._invoice_ProductTableAdapter
22854             End Get
22855             Set
22856                 Me._invoice_ProductTableAdapter = value
22857             End Set
22858         End Property
22859         
22860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22862          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22863             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22864             "a", "System.Drawing.Design.UITypeEditor")> _
22865         Public Property Invoice1_PaymentTableAdapter() As Invoice1_PaymentTableAdapter
22866             Get
22867                 Return Me._invoice1_PaymentTableAdapter
22868             End Get
22869             Set
22870                 Me._invoice1_PaymentTableAdapter = value
22871             End Set
22872         End Property
22873         
22874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22876          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22877             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22878             "a", "System.Drawing.Design.UITypeEditor")> _
22879         Public Property Invoice1_ProductTableAdapter() As Invoice1_ProductTableAdapter
22880             Get
22881                 Return Me._invoice1_ProductTableAdapter
22882             End Get
22883             Set
22884                 Me._invoice1_ProductTableAdapter = value
22885             End Set
22886         End Property
22887         
22888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22890          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22891             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22892             "a", "System.Drawing.Design.UITypeEditor")> _
22893         Public Property InvoiceInfoTableAdapter() As InvoiceInfoTableAdapter
22894             Get
22895                 Return Me._invoiceInfoTableAdapter
22896             End Get
22897             Set
22898                 Me._invoiceInfoTableAdapter = value
22899             End Set
22900         End Property
22901         
22902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22904          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22905             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22906             "a", "System.Drawing.Design.UITypeEditor")> _
22907         Public Property InvoiceInfo1TableAdapter() As InvoiceInfo1TableAdapter
22908             Get
22909                 Return Me._invoiceInfo1TableAdapter
22910             End Get
22911             Set
22912                 Me._invoiceInfo1TableAdapter = value
22913             End Set
22914         End Property
22915         
22916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22918          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22919             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22920             "a", "System.Drawing.Design.UITypeEditor")> _
22921         Public Property LogsTableAdapter() As LogsTableAdapter
22922             Get
22923                 Return Me._logsTableAdapter
22924             End Get
22925             Set
22926                 Me._logsTableAdapter = value
22927             End Set
22928         End Property
22929         
22930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22932          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22933             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22934             "a", "System.Drawing.Design.UITypeEditor")> _
22935         Public Property ProductTableAdapter() As ProductTableAdapter
22936             Get
22937                 Return Me._productTableAdapter
22938             End Get
22939             Set
22940                 Me._productTableAdapter = value
22941             End Set
22942         End Property
22943         
22944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22946          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22947             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22948             "a", "System.Drawing.Design.UITypeEditor")> _
22949         Public Property Product_JoinTableAdapter() As Product_JoinTableAdapter
22950             Get
22951                 Return Me._product_JoinTableAdapter
22952             End Get
22953             Set
22954                 Me._product_JoinTableAdapter = value
22955             End Set
22956         End Property
22957         
22958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22960          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22961             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22962             "a", "System.Drawing.Design.UITypeEditor")> _
22963         Public Property QuotationTableAdapter() As QuotationTableAdapter
22964             Get
22965                 Return Me._quotationTableAdapter
22966             End Get
22967             Set
22968                 Me._quotationTableAdapter = value
22969             End Set
22970         End Property
22971         
22972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22974          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22975             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22976             "a", "System.Drawing.Design.UITypeEditor")> _
22977         Public Property Quotation_JoinTableAdapter() As Quotation_JoinTableAdapter
22978             Get
22979                 Return Me._quotation_JoinTableAdapter
22980             End Get
22981             Set
22982                 Me._quotation_JoinTableAdapter = value
22983             End Set
22984         End Property
22985         
22986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22988          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
22989             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
22990             "a", "System.Drawing.Design.UITypeEditor")> _
22991         Public Property RegistrationTableAdapter() As RegistrationTableAdapter
22992             Get
22993                 Return Me._registrationTableAdapter
22994             End Get
22995             Set
22996                 Me._registrationTableAdapter = value
22997             End Set
22998         End Property
22999         
23000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23002          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
23003             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
23004             "a", "System.Drawing.Design.UITypeEditor")> _
23005         Public Property ServiceTableAdapter() As ServiceTableAdapter
23006             Get
23007                 Return Me._serviceTableAdapter
23008             End Get
23009             Set
23010                 Me._serviceTableAdapter = value
23011             End Set
23012         End Property
23013         
23014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23016          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
23017             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
23018             "a", "System.Drawing.Design.UITypeEditor")> _
23019         Public Property StockTableAdapter() As StockTableAdapter
23020             Get
23021                 Return Me._stockTableAdapter
23022             End Get
23023             Set
23024                 Me._stockTableAdapter = value
23025             End Set
23026         End Property
23027         
23028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23030          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
23031             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
23032             "a", "System.Drawing.Design.UITypeEditor")> _
23033         Public Property Stock_ProductTableAdapter() As Stock_ProductTableAdapter
23034             Get
23035                 Return Me._stock_ProductTableAdapter
23036             End Get
23037             Set
23038                 Me._stock_ProductTableAdapter = value
23039             End Set
23040         End Property
23041         
23042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23044          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
23045             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
23046             "a", "System.Drawing.Design.UITypeEditor")> _
23047         Public Property SubCategoryTableAdapter() As SubCategoryTableAdapter
23048             Get
23049                 Return Me._subCategoryTableAdapter
23050             End Get
23051             Set
23052                 Me._subCategoryTableAdapter = value
23053             End Set
23054         End Property
23055         
23056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23058          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
23059             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
23060             "a", "System.Drawing.Design.UITypeEditor")> _
23061         Public Property SupplierTableAdapter() As SupplierTableAdapter
23062             Get
23063                 Return Me._supplierTableAdapter
23064             End Get
23065             Set
23066                 Me._supplierTableAdapter = value
23067             End Set
23068         End Property
23069         
23070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23072          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
23073             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
23074             "a", "System.Drawing.Design.UITypeEditor")> _
23075         Public Property Temp_StockTableAdapter() As Temp_StockTableAdapter
23076             Get
23077                 Return Me._temp_StockTableAdapter
23078             End Get
23079             Set
23080                 Me._temp_StockTableAdapter = value
23081             End Set
23082         End Property
23083         
23084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23086         Public Property BackupDataSetBeforeUpdate() As Boolean
23087             Get
23088                 Return Me._backupDataSetBeforeUpdate
23089             End Get
23090             Set
23091                 Me._backupDataSetBeforeUpdate = value
23092             End Set
23093         End Property
23094         
23095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23097          Global.System.ComponentModel.Browsable(false)> _
23098         Public Property Connection() As Global.System.Data.IDbConnection
23099             Get
23100                 If (Not (Me._connection) Is Nothing) Then
23101                     Return Me._connection
23102                 End If
23103                 If ((Not (Me._activationTableAdapter) Is Nothing) _
23104                             AndAlso (Not (Me._activationTableAdapter.Connection) Is Nothing)) Then
23105                     Return Me._activationTableAdapter.Connection
23106                 End If
23107                 If ((Not (Me._categoryTableAdapter) Is Nothing) _
23108                             AndAlso (Not (Me._categoryTableAdapter.Connection) Is Nothing)) Then
23109                     Return Me._categoryTableAdapter.Connection
23110                 End If
23111                 If ((Not (Me._companyTableAdapter) Is Nothing) _
23112                             AndAlso (Not (Me._companyTableAdapter.Connection) Is Nothing)) Then
23113                     Return Me._companyTableAdapter.Connection
23114                 End If
23115                 If ((Not (Me._company_ContactsTableAdapter) Is Nothing) _
23116                             AndAlso (Not (Me._company_ContactsTableAdapter.Connection) Is Nothing)) Then
23117                     Return Me._company_ContactsTableAdapter.Connection
23118                 End If
23119                 If ((Not (Me._customerTableAdapter) Is Nothing) _
23120                             AndAlso (Not (Me._customerTableAdapter.Connection) Is Nothing)) Then
23121                     Return Me._customerTableAdapter.Connection
23122                 End If
23123                 If ((Not (Me._invoice_PaymentTableAdapter) Is Nothing) _
23124                             AndAlso (Not (Me._invoice_PaymentTableAdapter.Connection) Is Nothing)) Then
23125                     Return Me._invoice_PaymentTableAdapter.Connection
23126                 End If
23127                 If ((Not (Me._invoice_ProductTableAdapter) Is Nothing) _
23128                             AndAlso (Not (Me._invoice_ProductTableAdapter.Connection) Is Nothing)) Then
23129                     Return Me._invoice_ProductTableAdapter.Connection
23130                 End If
23131                 If ((Not (Me._invoice1_PaymentTableAdapter) Is Nothing) _
23132                             AndAlso (Not (Me._invoice1_PaymentTableAdapter.Connection) Is Nothing)) Then
23133                     Return Me._invoice1_PaymentTableAdapter.Connection
23134                 End If
23135                 If ((Not (Me._invoice1_ProductTableAdapter) Is Nothing) _
23136                             AndAlso (Not (Me._invoice1_ProductTableAdapter.Connection) Is Nothing)) Then
23137                     Return Me._invoice1_ProductTableAdapter.Connection
23138                 End If
23139                 If ((Not (Me._invoiceInfoTableAdapter) Is Nothing) _
23140                             AndAlso (Not (Me._invoiceInfoTableAdapter.Connection) Is Nothing)) Then
23141                     Return Me._invoiceInfoTableAdapter.Connection
23142                 End If
23143                 If ((Not (Me._invoiceInfo1TableAdapter) Is Nothing) _
23144                             AndAlso (Not (Me._invoiceInfo1TableAdapter.Connection) Is Nothing)) Then
23145                     Return Me._invoiceInfo1TableAdapter.Connection
23146                 End If
23147                 If ((Not (Me._logsTableAdapter) Is Nothing) _
23148                             AndAlso (Not (Me._logsTableAdapter.Connection) Is Nothing)) Then
23149                     Return Me._logsTableAdapter.Connection
23150                 End If
23151                 If ((Not (Me._productTableAdapter) Is Nothing) _
23152                             AndAlso (Not (Me._productTableAdapter.Connection) Is Nothing)) Then
23153                     Return Me._productTableAdapter.Connection
23154                 End If
23155                 If ((Not (Me._product_JoinTableAdapter) Is Nothing) _
23156                             AndAlso (Not (Me._product_JoinTableAdapter.Connection) Is Nothing)) Then
23157                     Return Me._product_JoinTableAdapter.Connection
23158                 End If
23159                 If ((Not (Me._quotationTableAdapter) Is Nothing) _
23160                             AndAlso (Not (Me._quotationTableAdapter.Connection) Is Nothing)) Then
23161                     Return Me._quotationTableAdapter.Connection
23162                 End If
23163                 If ((Not (Me._quotation_JoinTableAdapter) Is Nothing) _
23164                             AndAlso (Not (Me._quotation_JoinTableAdapter.Connection) Is Nothing)) Then
23165                     Return Me._quotation_JoinTableAdapter.Connection
23166                 End If
23167                 If ((Not (Me._registrationTableAdapter) Is Nothing) _
23168                             AndAlso (Not (Me._registrationTableAdapter.Connection) Is Nothing)) Then
23169                     Return Me._registrationTableAdapter.Connection
23170                 End If
23171                 If ((Not (Me._serviceTableAdapter) Is Nothing) _
23172                             AndAlso (Not (Me._serviceTableAdapter.Connection) Is Nothing)) Then
23173                     Return Me._serviceTableAdapter.Connection
23174                 End If
23175                 If ((Not (Me._stockTableAdapter) Is Nothing) _
23176                             AndAlso (Not (Me._stockTableAdapter.Connection) Is Nothing)) Then
23177                     Return Me._stockTableAdapter.Connection
23178                 End If
23179                 If ((Not (Me._stock_ProductTableAdapter) Is Nothing) _
23180                             AndAlso (Not (Me._stock_ProductTableAdapter.Connection) Is Nothing)) Then
23181                     Return Me._stock_ProductTableAdapter.Connection
23182                 End If
23183                 If ((Not (Me._subCategoryTableAdapter) Is Nothing) _
23184                             AndAlso (Not (Me._subCategoryTableAdapter.Connection) Is Nothing)) Then
23185                     Return Me._subCategoryTableAdapter.Connection
23186                 End If
23187                 If ((Not (Me._supplierTableAdapter) Is Nothing) _
23188                             AndAlso (Not (Me._supplierTableAdapter.Connection) Is Nothing)) Then
23189                     Return Me._supplierTableAdapter.Connection
23190                 End If
23191                 If ((Not (Me._temp_StockTableAdapter) Is Nothing) _
23192                             AndAlso (Not (Me._temp_StockTableAdapter.Connection) Is Nothing)) Then
23193                     Return Me._temp_StockTableAdapter.Connection
23194                 End If
23195                 Return Nothing
23196             End Get
23197             Set
23198                 Me._connection = value
23199             End Set
23200         End Property
23201         
23202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23204          Global.System.ComponentModel.Browsable(false)> _
23205         Public ReadOnly Property TableAdapterInstanceCount() As Integer
23206             Get
23207                 Dim count As Integer = 0
23208                 If (Not (Me._activationTableAdapter) Is Nothing) Then
23209                     count = (count + 1)
23210                 End If
23211                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
23212                     count = (count + 1)
23213                 End If
23214                 If (Not (Me._companyTableAdapter) Is Nothing) Then
23215                     count = (count + 1)
23216                 End If
23217                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
23218                     count = (count + 1)
23219                 End If
23220                 If (Not (Me._customerTableAdapter) Is Nothing) Then
23221                     count = (count + 1)
23222                 End If
23223                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
23224                     count = (count + 1)
23225                 End If
23226                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
23227                     count = (count + 1)
23228                 End If
23229                 If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
23230                     count = (count + 1)
23231                 End If
23232                 If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
23233                     count = (count + 1)
23234                 End If
23235                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
23236                     count = (count + 1)
23237                 End If
23238                 If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
23239                     count = (count + 1)
23240                 End If
23241                 If (Not (Me._logsTableAdapter) Is Nothing) Then
23242                     count = (count + 1)
23243                 End If
23244                 If (Not (Me._productTableAdapter) Is Nothing) Then
23245                     count = (count + 1)
23246                 End If
23247                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
23248                     count = (count + 1)
23249                 End If
23250                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
23251                     count = (count + 1)
23252                 End If
23253                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
23254                     count = (count + 1)
23255                 End If
23256                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
23257                     count = (count + 1)
23258                 End If
23259                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
23260                     count = (count + 1)
23261                 End If
23262                 If (Not (Me._stockTableAdapter) Is Nothing) Then
23263                     count = (count + 1)
23264                 End If
23265                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
23266                     count = (count + 1)
23267                 End If
23268                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
23269                     count = (count + 1)
23270                 End If
23271                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
23272                     count = (count + 1)
23273                 End If
23274                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
23275                     count = (count + 1)
23276                 End If
23277                 Return count
23278             End Get
23279         End Property
23280         
23281         '''<summary>
23282         '''Update rows in top-down order.
23283         '''</summary>
23284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23286         Private Function UpdateUpdatedRows(ByVal dataSet As SIS_DBDataSet1, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
23287             Dim result As Integer = 0
23288             If (Not (Me._categoryTableAdapter) Is Nothing) Then
23289                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23290                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23291                 If ((Not (updatedRows) Is Nothing) _
23292                             AndAlso (0 < updatedRows.Length)) Then
23293                     result = (result + Me._categoryTableAdapter.Update(updatedRows))
23294                     allChangedRows.AddRange(updatedRows)
23295                 End If
23296             End If
23297             If (Not (Me._customerTableAdapter) Is Nothing) Then
23298                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23299                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23300                 If ((Not (updatedRows) Is Nothing) _
23301                             AndAlso (0 < updatedRows.Length)) Then
23302                     result = (result + Me._customerTableAdapter.Update(updatedRows))
23303                     allChangedRows.AddRange(updatedRows)
23304                 End If
23305             End If
23306             If (Not (Me._serviceTableAdapter) Is Nothing) Then
23307                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23308                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23309                 If ((Not (updatedRows) Is Nothing) _
23310                             AndAlso (0 < updatedRows.Length)) Then
23311                     result = (result + Me._serviceTableAdapter.Update(updatedRows))
23312                     allChangedRows.AddRange(updatedRows)
23313                 End If
23314             End If
23315             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
23316                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23317                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23318                 If ((Not (updatedRows) Is Nothing) _
23319                             AndAlso (0 < updatedRows.Length)) Then
23320                     result = (result + Me._subCategoryTableAdapter.Update(updatedRows))
23321                     allChangedRows.AddRange(updatedRows)
23322                 End If
23323             End If
23324             If (Not (Me._supplierTableAdapter) Is Nothing) Then
23325                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23326                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23327                 If ((Not (updatedRows) Is Nothing) _
23328                             AndAlso (0 < updatedRows.Length)) Then
23329                     result = (result + Me._supplierTableAdapter.Update(updatedRows))
23330                     allChangedRows.AddRange(updatedRows)
23331                 End If
23332             End If
23333             If (Not (Me._productTableAdapter) Is Nothing) Then
23334                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23335                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23336                 If ((Not (updatedRows) Is Nothing) _
23337                             AndAlso (0 < updatedRows.Length)) Then
23338                     result = (result + Me._productTableAdapter.Update(updatedRows))
23339                     allChangedRows.AddRange(updatedRows)
23340                 End If
23341             End If
23342             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
23343                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23344                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23345                 If ((Not (updatedRows) Is Nothing) _
23346                             AndAlso (0 < updatedRows.Length)) Then
23347                     result = (result + Me._invoiceInfoTableAdapter.Update(updatedRows))
23348                     allChangedRows.AddRange(updatedRows)
23349                 End If
23350             End If
23351             If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
23352                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo1.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23353                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23354                 If ((Not (updatedRows) Is Nothing) _
23355                             AndAlso (0 < updatedRows.Length)) Then
23356                     result = (result + Me._invoiceInfo1TableAdapter.Update(updatedRows))
23357                     allChangedRows.AddRange(updatedRows)
23358                 End If
23359             End If
23360             If (Not (Me._registrationTableAdapter) Is Nothing) Then
23361                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23362                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23363                 If ((Not (updatedRows) Is Nothing) _
23364                             AndAlso (0 < updatedRows.Length)) Then
23365                     result = (result + Me._registrationTableAdapter.Update(updatedRows))
23366                     allChangedRows.AddRange(updatedRows)
23367                 End If
23368             End If
23369             If (Not (Me._stockTableAdapter) Is Nothing) Then
23370                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23371                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23372                 If ((Not (updatedRows) Is Nothing) _
23373                             AndAlso (0 < updatedRows.Length)) Then
23374                     result = (result + Me._stockTableAdapter.Update(updatedRows))
23375                     allChangedRows.AddRange(updatedRows)
23376                 End If
23377             End If
23378             If (Not (Me._quotationTableAdapter) Is Nothing) Then
23379                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23380                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23381                 If ((Not (updatedRows) Is Nothing) _
23382                             AndAlso (0 < updatedRows.Length)) Then
23383                     result = (result + Me._quotationTableAdapter.Update(updatedRows))
23384                     allChangedRows.AddRange(updatedRows)
23385                 End If
23386             End If
23387             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
23388                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23389                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23390                 If ((Not (updatedRows) Is Nothing) _
23391                             AndAlso (0 < updatedRows.Length)) Then
23392                     result = (result + Me._temp_StockTableAdapter.Update(updatedRows))
23393                     allChangedRows.AddRange(updatedRows)
23394                 End If
23395             End If
23396             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
23397                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23398                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23399                 If ((Not (updatedRows) Is Nothing) _
23400                             AndAlso (0 < updatedRows.Length)) Then
23401                     result = (result + Me._stock_ProductTableAdapter.Update(updatedRows))
23402                     allChangedRows.AddRange(updatedRows)
23403                 End If
23404             End If
23405             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
23406                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23407                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23408                 If ((Not (updatedRows) Is Nothing) _
23409                             AndAlso (0 < updatedRows.Length)) Then
23410                     result = (result + Me._quotation_JoinTableAdapter.Update(updatedRows))
23411                     allChangedRows.AddRange(updatedRows)
23412                 End If
23413             End If
23414             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
23415                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23416                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23417                 If ((Not (updatedRows) Is Nothing) _
23418                             AndAlso (0 < updatedRows.Length)) Then
23419                     result = (result + Me._company_ContactsTableAdapter.Update(updatedRows))
23420                     allChangedRows.AddRange(updatedRows)
23421                 End If
23422             End If
23423             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
23424                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23425                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23426                 If ((Not (updatedRows) Is Nothing) _
23427                             AndAlso (0 < updatedRows.Length)) Then
23428                     result = (result + Me._invoice_PaymentTableAdapter.Update(updatedRows))
23429                     allChangedRows.AddRange(updatedRows)
23430                 End If
23431             End If
23432             If (Not (Me._activationTableAdapter) Is Nothing) Then
23433                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23434                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23435                 If ((Not (updatedRows) Is Nothing) _
23436                             AndAlso (0 < updatedRows.Length)) Then
23437                     result = (result + Me._activationTableAdapter.Update(updatedRows))
23438                     allChangedRows.AddRange(updatedRows)
23439                 End If
23440             End If
23441             If (Not (Me._companyTableAdapter) Is Nothing) Then
23442                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23443                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23444                 If ((Not (updatedRows) Is Nothing) _
23445                             AndAlso (0 < updatedRows.Length)) Then
23446                     result = (result + Me._companyTableAdapter.Update(updatedRows))
23447                     allChangedRows.AddRange(updatedRows)
23448                 End If
23449             End If
23450             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
23451                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23452                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23453                 If ((Not (updatedRows) Is Nothing) _
23454                             AndAlso (0 < updatedRows.Length)) Then
23455                     result = (result + Me._invoice_ProductTableAdapter.Update(updatedRows))
23456                     allChangedRows.AddRange(updatedRows)
23457                 End If
23458             End If
23459             If (Not (Me._logsTableAdapter) Is Nothing) Then
23460                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23461                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23462                 If ((Not (updatedRows) Is Nothing) _
23463                             AndAlso (0 < updatedRows.Length)) Then
23464                     result = (result + Me._logsTableAdapter.Update(updatedRows))
23465                     allChangedRows.AddRange(updatedRows)
23466                 End If
23467             End If
23468             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
23469                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23470                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23471                 If ((Not (updatedRows) Is Nothing) _
23472                             AndAlso (0 < updatedRows.Length)) Then
23473                     result = (result + Me._product_JoinTableAdapter.Update(updatedRows))
23474                     allChangedRows.AddRange(updatedRows)
23475                 End If
23476             End If
23477             If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
23478                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23479                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23480                 If ((Not (updatedRows) Is Nothing) _
23481                             AndAlso (0 < updatedRows.Length)) Then
23482                     result = (result + Me._invoice1_PaymentTableAdapter.Update(updatedRows))
23483                     allChangedRows.AddRange(updatedRows)
23484                 End If
23485             End If
23486             If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
23487                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
23488                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
23489                 If ((Not (updatedRows) Is Nothing) _
23490                             AndAlso (0 < updatedRows.Length)) Then
23491                     result = (result + Me._invoice1_ProductTableAdapter.Update(updatedRows))
23492                     allChangedRows.AddRange(updatedRows)
23493                 End If
23494             End If
23495             Return result
23496         End Function
23497         
23498         '''<summary>
23499         '''Insert rows in top-down order.
23500         '''</summary>
23501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23503         Private Function UpdateInsertedRows(ByVal dataSet As SIS_DBDataSet1, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
23504             Dim result As Integer = 0
23505             If (Not (Me._categoryTableAdapter) Is Nothing) Then
23506                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23507                 If ((Not (addedRows) Is Nothing) _
23508                             AndAlso (0 < addedRows.Length)) Then
23509                     result = (result + Me._categoryTableAdapter.Update(addedRows))
23510                     allAddedRows.AddRange(addedRows)
23511                 End If
23512             End If
23513             If (Not (Me._customerTableAdapter) Is Nothing) Then
23514                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23515                 If ((Not (addedRows) Is Nothing) _
23516                             AndAlso (0 < addedRows.Length)) Then
23517                     result = (result + Me._customerTableAdapter.Update(addedRows))
23518                     allAddedRows.AddRange(addedRows)
23519                 End If
23520             End If
23521             If (Not (Me._serviceTableAdapter) Is Nothing) Then
23522                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23523                 If ((Not (addedRows) Is Nothing) _
23524                             AndAlso (0 < addedRows.Length)) Then
23525                     result = (result + Me._serviceTableAdapter.Update(addedRows))
23526                     allAddedRows.AddRange(addedRows)
23527                 End If
23528             End If
23529             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
23530                 Dim addedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23531                 If ((Not (addedRows) Is Nothing) _
23532                             AndAlso (0 < addedRows.Length)) Then
23533                     result = (result + Me._subCategoryTableAdapter.Update(addedRows))
23534                     allAddedRows.AddRange(addedRows)
23535                 End If
23536             End If
23537             If (Not (Me._supplierTableAdapter) Is Nothing) Then
23538                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23539                 If ((Not (addedRows) Is Nothing) _
23540                             AndAlso (0 < addedRows.Length)) Then
23541                     result = (result + Me._supplierTableAdapter.Update(addedRows))
23542                     allAddedRows.AddRange(addedRows)
23543                 End If
23544             End If
23545             If (Not (Me._productTableAdapter) Is Nothing) Then
23546                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23547                 If ((Not (addedRows) Is Nothing) _
23548                             AndAlso (0 < addedRows.Length)) Then
23549                     result = (result + Me._productTableAdapter.Update(addedRows))
23550                     allAddedRows.AddRange(addedRows)
23551                 End If
23552             End If
23553             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
23554                 Dim addedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23555                 If ((Not (addedRows) Is Nothing) _
23556                             AndAlso (0 < addedRows.Length)) Then
23557                     result = (result + Me._invoiceInfoTableAdapter.Update(addedRows))
23558                     allAddedRows.AddRange(addedRows)
23559                 End If
23560             End If
23561             If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
23562                 Dim addedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo1.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23563                 If ((Not (addedRows) Is Nothing) _
23564                             AndAlso (0 < addedRows.Length)) Then
23565                     result = (result + Me._invoiceInfo1TableAdapter.Update(addedRows))
23566                     allAddedRows.AddRange(addedRows)
23567                 End If
23568             End If
23569             If (Not (Me._registrationTableAdapter) Is Nothing) Then
23570                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23571                 If ((Not (addedRows) Is Nothing) _
23572                             AndAlso (0 < addedRows.Length)) Then
23573                     result = (result + Me._registrationTableAdapter.Update(addedRows))
23574                     allAddedRows.AddRange(addedRows)
23575                 End If
23576             End If
23577             If (Not (Me._stockTableAdapter) Is Nothing) Then
23578                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23579                 If ((Not (addedRows) Is Nothing) _
23580                             AndAlso (0 < addedRows.Length)) Then
23581                     result = (result + Me._stockTableAdapter.Update(addedRows))
23582                     allAddedRows.AddRange(addedRows)
23583                 End If
23584             End If
23585             If (Not (Me._quotationTableAdapter) Is Nothing) Then
23586                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23587                 If ((Not (addedRows) Is Nothing) _
23588                             AndAlso (0 < addedRows.Length)) Then
23589                     result = (result + Me._quotationTableAdapter.Update(addedRows))
23590                     allAddedRows.AddRange(addedRows)
23591                 End If
23592             End If
23593             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
23594                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23595                 If ((Not (addedRows) Is Nothing) _
23596                             AndAlso (0 < addedRows.Length)) Then
23597                     result = (result + Me._temp_StockTableAdapter.Update(addedRows))
23598                     allAddedRows.AddRange(addedRows)
23599                 End If
23600             End If
23601             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
23602                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23603                 If ((Not (addedRows) Is Nothing) _
23604                             AndAlso (0 < addedRows.Length)) Then
23605                     result = (result + Me._stock_ProductTableAdapter.Update(addedRows))
23606                     allAddedRows.AddRange(addedRows)
23607                 End If
23608             End If
23609             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
23610                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23611                 If ((Not (addedRows) Is Nothing) _
23612                             AndAlso (0 < addedRows.Length)) Then
23613                     result = (result + Me._quotation_JoinTableAdapter.Update(addedRows))
23614                     allAddedRows.AddRange(addedRows)
23615                 End If
23616             End If
23617             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
23618                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23619                 If ((Not (addedRows) Is Nothing) _
23620                             AndAlso (0 < addedRows.Length)) Then
23621                     result = (result + Me._company_ContactsTableAdapter.Update(addedRows))
23622                     allAddedRows.AddRange(addedRows)
23623                 End If
23624             End If
23625             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
23626                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23627                 If ((Not (addedRows) Is Nothing) _
23628                             AndAlso (0 < addedRows.Length)) Then
23629                     result = (result + Me._invoice_PaymentTableAdapter.Update(addedRows))
23630                     allAddedRows.AddRange(addedRows)
23631                 End If
23632             End If
23633             If (Not (Me._activationTableAdapter) Is Nothing) Then
23634                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23635                 If ((Not (addedRows) Is Nothing) _
23636                             AndAlso (0 < addedRows.Length)) Then
23637                     result = (result + Me._activationTableAdapter.Update(addedRows))
23638                     allAddedRows.AddRange(addedRows)
23639                 End If
23640             End If
23641             If (Not (Me._companyTableAdapter) Is Nothing) Then
23642                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23643                 If ((Not (addedRows) Is Nothing) _
23644                             AndAlso (0 < addedRows.Length)) Then
23645                     result = (result + Me._companyTableAdapter.Update(addedRows))
23646                     allAddedRows.AddRange(addedRows)
23647                 End If
23648             End If
23649             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
23650                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23651                 If ((Not (addedRows) Is Nothing) _
23652                             AndAlso (0 < addedRows.Length)) Then
23653                     result = (result + Me._invoice_ProductTableAdapter.Update(addedRows))
23654                     allAddedRows.AddRange(addedRows)
23655                 End If
23656             End If
23657             If (Not (Me._logsTableAdapter) Is Nothing) Then
23658                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23659                 If ((Not (addedRows) Is Nothing) _
23660                             AndAlso (0 < addedRows.Length)) Then
23661                     result = (result + Me._logsTableAdapter.Update(addedRows))
23662                     allAddedRows.AddRange(addedRows)
23663                 End If
23664             End If
23665             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
23666                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23667                 If ((Not (addedRows) Is Nothing) _
23668                             AndAlso (0 < addedRows.Length)) Then
23669                     result = (result + Me._product_JoinTableAdapter.Update(addedRows))
23670                     allAddedRows.AddRange(addedRows)
23671                 End If
23672             End If
23673             If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
23674                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23675                 If ((Not (addedRows) Is Nothing) _
23676                             AndAlso (0 < addedRows.Length)) Then
23677                     result = (result + Me._invoice1_PaymentTableAdapter.Update(addedRows))
23678                     allAddedRows.AddRange(addedRows)
23679                 End If
23680             End If
23681             If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
23682                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
23683                 If ((Not (addedRows) Is Nothing) _
23684                             AndAlso (0 < addedRows.Length)) Then
23685                     result = (result + Me._invoice1_ProductTableAdapter.Update(addedRows))
23686                     allAddedRows.AddRange(addedRows)
23687                 End If
23688             End If
23689             Return result
23690         End Function
23691         
23692         '''<summary>
23693         '''Delete rows in bottom-up order.
23694         '''</summary>
23695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23697         Private Function UpdateDeletedRows(ByVal dataSet As SIS_DBDataSet1, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
23698             Dim result As Integer = 0
23699             If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
23700                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23701                 If ((Not (deletedRows) Is Nothing) _
23702                             AndAlso (0 < deletedRows.Length)) Then
23703                     result = (result + Me._invoice1_ProductTableAdapter.Update(deletedRows))
23704                     allChangedRows.AddRange(deletedRows)
23705                 End If
23706             End If
23707             If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
23708                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23709                 If ((Not (deletedRows) Is Nothing) _
23710                             AndAlso (0 < deletedRows.Length)) Then
23711                     result = (result + Me._invoice1_PaymentTableAdapter.Update(deletedRows))
23712                     allChangedRows.AddRange(deletedRows)
23713                 End If
23714             End If
23715             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
23716                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23717                 If ((Not (deletedRows) Is Nothing) _
23718                             AndAlso (0 < deletedRows.Length)) Then
23719                     result = (result + Me._product_JoinTableAdapter.Update(deletedRows))
23720                     allChangedRows.AddRange(deletedRows)
23721                 End If
23722             End If
23723             If (Not (Me._logsTableAdapter) Is Nothing) Then
23724                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23725                 If ((Not (deletedRows) Is Nothing) _
23726                             AndAlso (0 < deletedRows.Length)) Then
23727                     result = (result + Me._logsTableAdapter.Update(deletedRows))
23728                     allChangedRows.AddRange(deletedRows)
23729                 End If
23730             End If
23731             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
23732                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23733                 If ((Not (deletedRows) Is Nothing) _
23734                             AndAlso (0 < deletedRows.Length)) Then
23735                     result = (result + Me._invoice_ProductTableAdapter.Update(deletedRows))
23736                     allChangedRows.AddRange(deletedRows)
23737                 End If
23738             End If
23739             If (Not (Me._companyTableAdapter) Is Nothing) Then
23740                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23741                 If ((Not (deletedRows) Is Nothing) _
23742                             AndAlso (0 < deletedRows.Length)) Then
23743                     result = (result + Me._companyTableAdapter.Update(deletedRows))
23744                     allChangedRows.AddRange(deletedRows)
23745                 End If
23746             End If
23747             If (Not (Me._activationTableAdapter) Is Nothing) Then
23748                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23749                 If ((Not (deletedRows) Is Nothing) _
23750                             AndAlso (0 < deletedRows.Length)) Then
23751                     result = (result + Me._activationTableAdapter.Update(deletedRows))
23752                     allChangedRows.AddRange(deletedRows)
23753                 End If
23754             End If
23755             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
23756                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23757                 If ((Not (deletedRows) Is Nothing) _
23758                             AndAlso (0 < deletedRows.Length)) Then
23759                     result = (result + Me._invoice_PaymentTableAdapter.Update(deletedRows))
23760                     allChangedRows.AddRange(deletedRows)
23761                 End If
23762             End If
23763             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
23764                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23765                 If ((Not (deletedRows) Is Nothing) _
23766                             AndAlso (0 < deletedRows.Length)) Then
23767                     result = (result + Me._company_ContactsTableAdapter.Update(deletedRows))
23768                     allChangedRows.AddRange(deletedRows)
23769                 End If
23770             End If
23771             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
23772                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23773                 If ((Not (deletedRows) Is Nothing) _
23774                             AndAlso (0 < deletedRows.Length)) Then
23775                     result = (result + Me._quotation_JoinTableAdapter.Update(deletedRows))
23776                     allChangedRows.AddRange(deletedRows)
23777                 End If
23778             End If
23779             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
23780                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23781                 If ((Not (deletedRows) Is Nothing) _
23782                             AndAlso (0 < deletedRows.Length)) Then
23783                     result = (result + Me._stock_ProductTableAdapter.Update(deletedRows))
23784                     allChangedRows.AddRange(deletedRows)
23785                 End If
23786             End If
23787             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
23788                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23789                 If ((Not (deletedRows) Is Nothing) _
23790                             AndAlso (0 < deletedRows.Length)) Then
23791                     result = (result + Me._temp_StockTableAdapter.Update(deletedRows))
23792                     allChangedRows.AddRange(deletedRows)
23793                 End If
23794             End If
23795             If (Not (Me._quotationTableAdapter) Is Nothing) Then
23796                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23797                 If ((Not (deletedRows) Is Nothing) _
23798                             AndAlso (0 < deletedRows.Length)) Then
23799                     result = (result + Me._quotationTableAdapter.Update(deletedRows))
23800                     allChangedRows.AddRange(deletedRows)
23801                 End If
23802             End If
23803             If (Not (Me._stockTableAdapter) Is Nothing) Then
23804                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23805                 If ((Not (deletedRows) Is Nothing) _
23806                             AndAlso (0 < deletedRows.Length)) Then
23807                     result = (result + Me._stockTableAdapter.Update(deletedRows))
23808                     allChangedRows.AddRange(deletedRows)
23809                 End If
23810             End If
23811             If (Not (Me._registrationTableAdapter) Is Nothing) Then
23812                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23813                 If ((Not (deletedRows) Is Nothing) _
23814                             AndAlso (0 < deletedRows.Length)) Then
23815                     result = (result + Me._registrationTableAdapter.Update(deletedRows))
23816                     allChangedRows.AddRange(deletedRows)
23817                 End If
23818             End If
23819             If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
23820                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo1.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23821                 If ((Not (deletedRows) Is Nothing) _
23822                             AndAlso (0 < deletedRows.Length)) Then
23823                     result = (result + Me._invoiceInfo1TableAdapter.Update(deletedRows))
23824                     allChangedRows.AddRange(deletedRows)
23825                 End If
23826             End If
23827             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
23828                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23829                 If ((Not (deletedRows) Is Nothing) _
23830                             AndAlso (0 < deletedRows.Length)) Then
23831                     result = (result + Me._invoiceInfoTableAdapter.Update(deletedRows))
23832                     allChangedRows.AddRange(deletedRows)
23833                 End If
23834             End If
23835             If (Not (Me._productTableAdapter) Is Nothing) Then
23836                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23837                 If ((Not (deletedRows) Is Nothing) _
23838                             AndAlso (0 < deletedRows.Length)) Then
23839                     result = (result + Me._productTableAdapter.Update(deletedRows))
23840                     allChangedRows.AddRange(deletedRows)
23841                 End If
23842             End If
23843             If (Not (Me._supplierTableAdapter) Is Nothing) Then
23844                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23845                 If ((Not (deletedRows) Is Nothing) _
23846                             AndAlso (0 < deletedRows.Length)) Then
23847                     result = (result + Me._supplierTableAdapter.Update(deletedRows))
23848                     allChangedRows.AddRange(deletedRows)
23849                 End If
23850             End If
23851             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
23852                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23853                 If ((Not (deletedRows) Is Nothing) _
23854                             AndAlso (0 < deletedRows.Length)) Then
23855                     result = (result + Me._subCategoryTableAdapter.Update(deletedRows))
23856                     allChangedRows.AddRange(deletedRows)
23857                 End If
23858             End If
23859             If (Not (Me._serviceTableAdapter) Is Nothing) Then
23860                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23861                 If ((Not (deletedRows) Is Nothing) _
23862                             AndAlso (0 < deletedRows.Length)) Then
23863                     result = (result + Me._serviceTableAdapter.Update(deletedRows))
23864                     allChangedRows.AddRange(deletedRows)
23865                 End If
23866             End If
23867             If (Not (Me._customerTableAdapter) Is Nothing) Then
23868                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23869                 If ((Not (deletedRows) Is Nothing) _
23870                             AndAlso (0 < deletedRows.Length)) Then
23871                     result = (result + Me._customerTableAdapter.Update(deletedRows))
23872                     allChangedRows.AddRange(deletedRows)
23873                 End If
23874             End If
23875             If (Not (Me._categoryTableAdapter) Is Nothing) Then
23876                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
23877                 If ((Not (deletedRows) Is Nothing) _
23878                             AndAlso (0 < deletedRows.Length)) Then
23879                     result = (result + Me._categoryTableAdapter.Update(deletedRows))
23880                     allChangedRows.AddRange(deletedRows)
23881                 End If
23882             End If
23883             Return result
23884         End Function
23885         
23886         '''<summary>
23887         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
23888         '''</summary>
23889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23891         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
23892             If ((updatedRows Is Nothing) _
23893                         OrElse (updatedRows.Length < 1)) Then
23894                 Return updatedRows
23895             End If
23896             If ((allAddedRows Is Nothing) _
23897                         OrElse (allAddedRows.Count < 1)) Then
23898                 Return updatedRows
23899             End If
23900             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
23901             Dim i As Integer = 0
23902             Do While (i < updatedRows.Length)
23903                 Dim row As Global.System.Data.DataRow = updatedRows(i)
23904                 If (allAddedRows.Contains(row) = false) Then
23905                     realUpdatedRows.Add(row)
23906                 End If
23907                 i = (i + 1)
23908             Loop
23909             Return realUpdatedRows.ToArray
23910         End Function
23911         
23912         '''<summary>
23913         '''Update all changes to the dataset.
23914         '''</summary>
23915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23917         Public Overridable Function UpdateAll(ByVal dataSet As SIS_DBDataSet1) As Integer
23918             If (dataSet Is Nothing) Then
23919                 Throw New Global.System.ArgumentNullException("dataSet")
23920             End If
23921             If (dataSet.HasChanges = false) Then
23922                 Return 0
23923             End If
23924             If ((Not (Me._activationTableAdapter) Is Nothing) _
23925                         AndAlso (Me.MatchTableAdapterConnection(Me._activationTableAdapter.Connection) = false)) Then
23926                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23927                         "tring.")
23928             End If
23929             If ((Not (Me._categoryTableAdapter) Is Nothing) _
23930                         AndAlso (Me.MatchTableAdapterConnection(Me._categoryTableAdapter.Connection) = false)) Then
23931                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23932                         "tring.")
23933             End If
23934             If ((Not (Me._companyTableAdapter) Is Nothing) _
23935                         AndAlso (Me.MatchTableAdapterConnection(Me._companyTableAdapter.Connection) = false)) Then
23936                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23937                         "tring.")
23938             End If
23939             If ((Not (Me._company_ContactsTableAdapter) Is Nothing) _
23940                         AndAlso (Me.MatchTableAdapterConnection(Me._company_ContactsTableAdapter.Connection) = false)) Then
23941                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23942                         "tring.")
23943             End If
23944             If ((Not (Me._customerTableAdapter) Is Nothing) _
23945                         AndAlso (Me.MatchTableAdapterConnection(Me._customerTableAdapter.Connection) = false)) Then
23946                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23947                         "tring.")
23948             End If
23949             If ((Not (Me._invoice_PaymentTableAdapter) Is Nothing) _
23950                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice_PaymentTableAdapter.Connection) = false)) Then
23951                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23952                         "tring.")
23953             End If
23954             If ((Not (Me._invoice_ProductTableAdapter) Is Nothing) _
23955                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice_ProductTableAdapter.Connection) = false)) Then
23956                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23957                         "tring.")
23958             End If
23959             If ((Not (Me._invoice1_PaymentTableAdapter) Is Nothing) _
23960                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice1_PaymentTableAdapter.Connection) = false)) Then
23961                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23962                         "tring.")
23963             End If
23964             If ((Not (Me._invoice1_ProductTableAdapter) Is Nothing) _
23965                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice1_ProductTableAdapter.Connection) = false)) Then
23966                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23967                         "tring.")
23968             End If
23969             If ((Not (Me._invoiceInfoTableAdapter) Is Nothing) _
23970                         AndAlso (Me.MatchTableAdapterConnection(Me._invoiceInfoTableAdapter.Connection) = false)) Then
23971                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23972                         "tring.")
23973             End If
23974             If ((Not (Me._invoiceInfo1TableAdapter) Is Nothing) _
23975                         AndAlso (Me.MatchTableAdapterConnection(Me._invoiceInfo1TableAdapter.Connection) = false)) Then
23976                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23977                         "tring.")
23978             End If
23979             If ((Not (Me._logsTableAdapter) Is Nothing) _
23980                         AndAlso (Me.MatchTableAdapterConnection(Me._logsTableAdapter.Connection) = false)) Then
23981                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23982                         "tring.")
23983             End If
23984             If ((Not (Me._productTableAdapter) Is Nothing) _
23985                         AndAlso (Me.MatchTableAdapterConnection(Me._productTableAdapter.Connection) = false)) Then
23986                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23987                         "tring.")
23988             End If
23989             If ((Not (Me._product_JoinTableAdapter) Is Nothing) _
23990                         AndAlso (Me.MatchTableAdapterConnection(Me._product_JoinTableAdapter.Connection) = false)) Then
23991                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23992                         "tring.")
23993             End If
23994             If ((Not (Me._quotationTableAdapter) Is Nothing) _
23995                         AndAlso (Me.MatchTableAdapterConnection(Me._quotationTableAdapter.Connection) = false)) Then
23996                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
23997                         "tring.")
23998             End If
23999             If ((Not (Me._quotation_JoinTableAdapter) Is Nothing) _
24000                         AndAlso (Me.MatchTableAdapterConnection(Me._quotation_JoinTableAdapter.Connection) = false)) Then
24001                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24002                         "tring.")
24003             End If
24004             If ((Not (Me._registrationTableAdapter) Is Nothing) _
24005                         AndAlso (Me.MatchTableAdapterConnection(Me._registrationTableAdapter.Connection) = false)) Then
24006                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24007                         "tring.")
24008             End If
24009             If ((Not (Me._serviceTableAdapter) Is Nothing) _
24010                         AndAlso (Me.MatchTableAdapterConnection(Me._serviceTableAdapter.Connection) = false)) Then
24011                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24012                         "tring.")
24013             End If
24014             If ((Not (Me._stockTableAdapter) Is Nothing) _
24015                         AndAlso (Me.MatchTableAdapterConnection(Me._stockTableAdapter.Connection) = false)) Then
24016                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24017                         "tring.")
24018             End If
24019             If ((Not (Me._stock_ProductTableAdapter) Is Nothing) _
24020                         AndAlso (Me.MatchTableAdapterConnection(Me._stock_ProductTableAdapter.Connection) = false)) Then
24021                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24022                         "tring.")
24023             End If
24024             If ((Not (Me._subCategoryTableAdapter) Is Nothing) _
24025                         AndAlso (Me.MatchTableAdapterConnection(Me._subCategoryTableAdapter.Connection) = false)) Then
24026                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24027                         "tring.")
24028             End If
24029             If ((Not (Me._supplierTableAdapter) Is Nothing) _
24030                         AndAlso (Me.MatchTableAdapterConnection(Me._supplierTableAdapter.Connection) = false)) Then
24031                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24032                         "tring.")
24033             End If
24034             If ((Not (Me._temp_StockTableAdapter) Is Nothing) _
24035                         AndAlso (Me.MatchTableAdapterConnection(Me._temp_StockTableAdapter.Connection) = false)) Then
24036                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
24037                         "tring.")
24038             End If
24039             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
24040             If (workConnection Is Nothing) Then
24041                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
24042                         "ger TableAdapter property to a valid TableAdapter instance.")
24043             End If
24044             Dim workConnOpened As Boolean = false
24045             If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
24046                         = Global.System.Data.ConnectionState.Broken) Then
24047                 workConnection.Close
24048             End If
24049             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
24050                 workConnection.Open
24051                 workConnOpened = true
24052             End If
24053             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
24054             If (workTransaction Is Nothing) Then
24055                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
24056                         "ctions or the current state is not allowing the transaction to begin.")
24057             End If
24058             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
24059             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
24060             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
24061             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
24062             Dim result As Integer = 0
24063             Dim backupDataSet As Global.System.Data.DataSet = Nothing
24064             If Me.BackupDataSetBeforeUpdate Then
24065                 backupDataSet = New Global.System.Data.DataSet()
24066                 backupDataSet.Merge(dataSet)
24067             End If
24068             Try
24069                 '---- Prepare for update -----------
24070                 '
24071                 If (Not (Me._activationTableAdapter) Is Nothing) Then
24072                     revertConnections.Add(Me._activationTableAdapter, Me._activationTableAdapter.Connection)
24073                     Me._activationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24074                     Me._activationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24075                     If Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24076                         Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24077                         adaptersWithAcceptChangesDuringUpdate.Add(Me._activationTableAdapter.Adapter)
24078                     End If
24079                 End If
24080                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
24081                     revertConnections.Add(Me._categoryTableAdapter, Me._categoryTableAdapter.Connection)
24082                     Me._categoryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24083                     Me._categoryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24084                     If Me._categoryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24085                         Me._categoryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24086                         adaptersWithAcceptChangesDuringUpdate.Add(Me._categoryTableAdapter.Adapter)
24087                     End If
24088                 End If
24089                 If (Not (Me._companyTableAdapter) Is Nothing) Then
24090                     revertConnections.Add(Me._companyTableAdapter, Me._companyTableAdapter.Connection)
24091                     Me._companyTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24092                     Me._companyTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24093                     If Me._companyTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24094                         Me._companyTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24095                         adaptersWithAcceptChangesDuringUpdate.Add(Me._companyTableAdapter.Adapter)
24096                     End If
24097                 End If
24098                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
24099                     revertConnections.Add(Me._company_ContactsTableAdapter, Me._company_ContactsTableAdapter.Connection)
24100                     Me._company_ContactsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24101                     Me._company_ContactsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24102                     If Me._company_ContactsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24103                         Me._company_ContactsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24104                         adaptersWithAcceptChangesDuringUpdate.Add(Me._company_ContactsTableAdapter.Adapter)
24105                     End If
24106                 End If
24107                 If (Not (Me._customerTableAdapter) Is Nothing) Then
24108                     revertConnections.Add(Me._customerTableAdapter, Me._customerTableAdapter.Connection)
24109                     Me._customerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24110                     Me._customerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24111                     If Me._customerTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24112                         Me._customerTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24113                         adaptersWithAcceptChangesDuringUpdate.Add(Me._customerTableAdapter.Adapter)
24114                     End If
24115                 End If
24116                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
24117                     revertConnections.Add(Me._invoice_PaymentTableAdapter, Me._invoice_PaymentTableAdapter.Connection)
24118                     Me._invoice_PaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24119                     Me._invoice_PaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24120                     If Me._invoice_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24121                         Me._invoice_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24122                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice_PaymentTableAdapter.Adapter)
24123                     End If
24124                 End If
24125                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
24126                     revertConnections.Add(Me._invoice_ProductTableAdapter, Me._invoice_ProductTableAdapter.Connection)
24127                     Me._invoice_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24128                     Me._invoice_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24129                     If Me._invoice_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24130                         Me._invoice_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24131                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice_ProductTableAdapter.Adapter)
24132                     End If
24133                 End If
24134                 If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
24135                     revertConnections.Add(Me._invoice1_PaymentTableAdapter, Me._invoice1_PaymentTableAdapter.Connection)
24136                     Me._invoice1_PaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24137                     Me._invoice1_PaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24138                     If Me._invoice1_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24139                         Me._invoice1_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24140                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice1_PaymentTableAdapter.Adapter)
24141                     End If
24142                 End If
24143                 If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
24144                     revertConnections.Add(Me._invoice1_ProductTableAdapter, Me._invoice1_ProductTableAdapter.Connection)
24145                     Me._invoice1_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24146                     Me._invoice1_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24147                     If Me._invoice1_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24148                         Me._invoice1_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24149                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice1_ProductTableAdapter.Adapter)
24150                     End If
24151                 End If
24152                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
24153                     revertConnections.Add(Me._invoiceInfoTableAdapter, Me._invoiceInfoTableAdapter.Connection)
24154                     Me._invoiceInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24155                     Me._invoiceInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24156                     If Me._invoiceInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24157                         Me._invoiceInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24158                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoiceInfoTableAdapter.Adapter)
24159                     End If
24160                 End If
24161                 If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
24162                     revertConnections.Add(Me._invoiceInfo1TableAdapter, Me._invoiceInfo1TableAdapter.Connection)
24163                     Me._invoiceInfo1TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24164                     Me._invoiceInfo1TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24165                     If Me._invoiceInfo1TableAdapter.Adapter.AcceptChangesDuringUpdate Then
24166                         Me._invoiceInfo1TableAdapter.Adapter.AcceptChangesDuringUpdate = false
24167                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoiceInfo1TableAdapter.Adapter)
24168                     End If
24169                 End If
24170                 If (Not (Me._logsTableAdapter) Is Nothing) Then
24171                     revertConnections.Add(Me._logsTableAdapter, Me._logsTableAdapter.Connection)
24172                     Me._logsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24173                     Me._logsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24174                     If Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24175                         Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24176                         adaptersWithAcceptChangesDuringUpdate.Add(Me._logsTableAdapter.Adapter)
24177                     End If
24178                 End If
24179                 If (Not (Me._productTableAdapter) Is Nothing) Then
24180                     revertConnections.Add(Me._productTableAdapter, Me._productTableAdapter.Connection)
24181                     Me._productTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24182                     Me._productTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24183                     If Me._productTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24184                         Me._productTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24185                         adaptersWithAcceptChangesDuringUpdate.Add(Me._productTableAdapter.Adapter)
24186                     End If
24187                 End If
24188                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
24189                     revertConnections.Add(Me._product_JoinTableAdapter, Me._product_JoinTableAdapter.Connection)
24190                     Me._product_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24191                     Me._product_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24192                     If Me._product_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24193                         Me._product_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24194                         adaptersWithAcceptChangesDuringUpdate.Add(Me._product_JoinTableAdapter.Adapter)
24195                     End If
24196                 End If
24197                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
24198                     revertConnections.Add(Me._quotationTableAdapter, Me._quotationTableAdapter.Connection)
24199                     Me._quotationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24200                     Me._quotationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24201                     If Me._quotationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24202                         Me._quotationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24203                         adaptersWithAcceptChangesDuringUpdate.Add(Me._quotationTableAdapter.Adapter)
24204                     End If
24205                 End If
24206                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
24207                     revertConnections.Add(Me._quotation_JoinTableAdapter, Me._quotation_JoinTableAdapter.Connection)
24208                     Me._quotation_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24209                     Me._quotation_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24210                     If Me._quotation_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24211                         Me._quotation_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24212                         adaptersWithAcceptChangesDuringUpdate.Add(Me._quotation_JoinTableAdapter.Adapter)
24213                     End If
24214                 End If
24215                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
24216                     revertConnections.Add(Me._registrationTableAdapter, Me._registrationTableAdapter.Connection)
24217                     Me._registrationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24218                     Me._registrationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24219                     If Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24220                         Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24221                         adaptersWithAcceptChangesDuringUpdate.Add(Me._registrationTableAdapter.Adapter)
24222                     End If
24223                 End If
24224                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
24225                     revertConnections.Add(Me._serviceTableAdapter, Me._serviceTableAdapter.Connection)
24226                     Me._serviceTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24227                     Me._serviceTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24228                     If Me._serviceTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24229                         Me._serviceTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24230                         adaptersWithAcceptChangesDuringUpdate.Add(Me._serviceTableAdapter.Adapter)
24231                     End If
24232                 End If
24233                 If (Not (Me._stockTableAdapter) Is Nothing) Then
24234                     revertConnections.Add(Me._stockTableAdapter, Me._stockTableAdapter.Connection)
24235                     Me._stockTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24236                     Me._stockTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24237                     If Me._stockTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24238                         Me._stockTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24239                         adaptersWithAcceptChangesDuringUpdate.Add(Me._stockTableAdapter.Adapter)
24240                     End If
24241                 End If
24242                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
24243                     revertConnections.Add(Me._stock_ProductTableAdapter, Me._stock_ProductTableAdapter.Connection)
24244                     Me._stock_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24245                     Me._stock_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24246                     If Me._stock_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24247                         Me._stock_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24248                         adaptersWithAcceptChangesDuringUpdate.Add(Me._stock_ProductTableAdapter.Adapter)
24249                     End If
24250                 End If
24251                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
24252                     revertConnections.Add(Me._subCategoryTableAdapter, Me._subCategoryTableAdapter.Connection)
24253                     Me._subCategoryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24254                     Me._subCategoryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24255                     If Me._subCategoryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24256                         Me._subCategoryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24257                         adaptersWithAcceptChangesDuringUpdate.Add(Me._subCategoryTableAdapter.Adapter)
24258                     End If
24259                 End If
24260                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
24261                     revertConnections.Add(Me._supplierTableAdapter, Me._supplierTableAdapter.Connection)
24262                     Me._supplierTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24263                     Me._supplierTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24264                     If Me._supplierTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24265                         Me._supplierTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24266                         adaptersWithAcceptChangesDuringUpdate.Add(Me._supplierTableAdapter.Adapter)
24267                     End If
24268                 End If
24269                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
24270                     revertConnections.Add(Me._temp_StockTableAdapter, Me._temp_StockTableAdapter.Connection)
24271                     Me._temp_StockTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
24272                     Me._temp_StockTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
24273                     If Me._temp_StockTableAdapter.Adapter.AcceptChangesDuringUpdate Then
24274                         Me._temp_StockTableAdapter.Adapter.AcceptChangesDuringUpdate = false
24275                         adaptersWithAcceptChangesDuringUpdate.Add(Me._temp_StockTableAdapter.Adapter)
24276                     End If
24277                 End If
24278                 '
24279                 '---- Perform updates -----------
24280                 '
24281                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
24282                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
24283                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
24284                 Else
24285                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
24286                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
24287                 End If
24288                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
24289                 '
24290                 '---- Commit updates -----------
24291                 '
24292                 workTransaction.Commit
24293                 If (0 < allAddedRows.Count) Then
24294                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
24295                     allAddedRows.CopyTo(rows)
24296                     Dim i As Integer = 0
24297                     Do While (i < rows.Length)
24298                         Dim row As Global.System.Data.DataRow = rows(i)
24299                         row.AcceptChanges
24300                         i = (i + 1)
24301                     Loop
24302                 End If
24303                 If (0 < allChangedRows.Count) Then
24304                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
24305                     allChangedRows.CopyTo(rows)
24306                     Dim i As Integer = 0
24307                     Do While (i < rows.Length)
24308                         Dim row As Global.System.Data.DataRow = rows(i)
24309                         row.AcceptChanges
24310                         i = (i + 1)
24311                     Loop
24312                 End If
24313             Catch ex As Global.System.Exception
24314                 workTransaction.Rollback
24315                 '---- Restore the dataset -----------
24316                 If Me.BackupDataSetBeforeUpdate Then
24317                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
24318                     dataSet.Clear
24319                     dataSet.Merge(backupDataSet)
24320                 Else
24321                     If (0 < allAddedRows.Count) Then
24322                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
24323                         allAddedRows.CopyTo(rows)
24324                         Dim i As Integer = 0
24325                         Do While (i < rows.Length)
24326                             Dim row As Global.System.Data.DataRow = rows(i)
24327                             row.AcceptChanges
24328                             row.SetAdded
24329                             i = (i + 1)
24330                         Loop
24331                     End If
24332                 End If
24333                 Throw ex
24334             Finally
24335                 If workConnOpened Then
24336                     workConnection.Close
24337                 End If
24338                 If (Not (Me._activationTableAdapter) Is Nothing) Then
24339                     Me._activationTableAdapter.Connection = CType(revertConnections(Me._activationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24340                     Me._activationTableAdapter.Transaction = Nothing
24341                 End If
24342                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
24343                     Me._categoryTableAdapter.Connection = CType(revertConnections(Me._categoryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24344                     Me._categoryTableAdapter.Transaction = Nothing
24345                 End If
24346                 If (Not (Me._companyTableAdapter) Is Nothing) Then
24347                     Me._companyTableAdapter.Connection = CType(revertConnections(Me._companyTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24348                     Me._companyTableAdapter.Transaction = Nothing
24349                 End If
24350                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
24351                     Me._company_ContactsTableAdapter.Connection = CType(revertConnections(Me._company_ContactsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24352                     Me._company_ContactsTableAdapter.Transaction = Nothing
24353                 End If
24354                 If (Not (Me._customerTableAdapter) Is Nothing) Then
24355                     Me._customerTableAdapter.Connection = CType(revertConnections(Me._customerTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24356                     Me._customerTableAdapter.Transaction = Nothing
24357                 End If
24358                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
24359                     Me._invoice_PaymentTableAdapter.Connection = CType(revertConnections(Me._invoice_PaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24360                     Me._invoice_PaymentTableAdapter.Transaction = Nothing
24361                 End If
24362                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
24363                     Me._invoice_ProductTableAdapter.Connection = CType(revertConnections(Me._invoice_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24364                     Me._invoice_ProductTableAdapter.Transaction = Nothing
24365                 End If
24366                 If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
24367                     Me._invoice1_PaymentTableAdapter.Connection = CType(revertConnections(Me._invoice1_PaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24368                     Me._invoice1_PaymentTableAdapter.Transaction = Nothing
24369                 End If
24370                 If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
24371                     Me._invoice1_ProductTableAdapter.Connection = CType(revertConnections(Me._invoice1_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24372                     Me._invoice1_ProductTableAdapter.Transaction = Nothing
24373                 End If
24374                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
24375                     Me._invoiceInfoTableAdapter.Connection = CType(revertConnections(Me._invoiceInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24376                     Me._invoiceInfoTableAdapter.Transaction = Nothing
24377                 End If
24378                 If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
24379                     Me._invoiceInfo1TableAdapter.Connection = CType(revertConnections(Me._invoiceInfo1TableAdapter),Global.System.Data.SqlClient.SqlConnection)
24380                     Me._invoiceInfo1TableAdapter.Transaction = Nothing
24381                 End If
24382                 If (Not (Me._logsTableAdapter) Is Nothing) Then
24383                     Me._logsTableAdapter.Connection = CType(revertConnections(Me._logsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24384                     Me._logsTableAdapter.Transaction = Nothing
24385                 End If
24386                 If (Not (Me._productTableAdapter) Is Nothing) Then
24387                     Me._productTableAdapter.Connection = CType(revertConnections(Me._productTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24388                     Me._productTableAdapter.Transaction = Nothing
24389                 End If
24390                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
24391                     Me._product_JoinTableAdapter.Connection = CType(revertConnections(Me._product_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24392                     Me._product_JoinTableAdapter.Transaction = Nothing
24393                 End If
24394                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
24395                     Me._quotationTableAdapter.Connection = CType(revertConnections(Me._quotationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24396                     Me._quotationTableAdapter.Transaction = Nothing
24397                 End If
24398                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
24399                     Me._quotation_JoinTableAdapter.Connection = CType(revertConnections(Me._quotation_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24400                     Me._quotation_JoinTableAdapter.Transaction = Nothing
24401                 End If
24402                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
24403                     Me._registrationTableAdapter.Connection = CType(revertConnections(Me._registrationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24404                     Me._registrationTableAdapter.Transaction = Nothing
24405                 End If
24406                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
24407                     Me._serviceTableAdapter.Connection = CType(revertConnections(Me._serviceTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24408                     Me._serviceTableAdapter.Transaction = Nothing
24409                 End If
24410                 If (Not (Me._stockTableAdapter) Is Nothing) Then
24411                     Me._stockTableAdapter.Connection = CType(revertConnections(Me._stockTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24412                     Me._stockTableAdapter.Transaction = Nothing
24413                 End If
24414                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
24415                     Me._stock_ProductTableAdapter.Connection = CType(revertConnections(Me._stock_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24416                     Me._stock_ProductTableAdapter.Transaction = Nothing
24417                 End If
24418                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
24419                     Me._subCategoryTableAdapter.Connection = CType(revertConnections(Me._subCategoryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24420                     Me._subCategoryTableAdapter.Transaction = Nothing
24421                 End If
24422                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
24423                     Me._supplierTableAdapter.Connection = CType(revertConnections(Me._supplierTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24424                     Me._supplierTableAdapter.Transaction = Nothing
24425                 End If
24426                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
24427                     Me._temp_StockTableAdapter.Connection = CType(revertConnections(Me._temp_StockTableAdapter),Global.System.Data.SqlClient.SqlConnection)
24428                     Me._temp_StockTableAdapter.Transaction = Nothing
24429                 End If
24430                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
24431                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
24432                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
24433                     Dim i As Integer = 0
24434                     Do While (i < adapters.Length)
24435                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
24436                         adapter.AcceptChangesDuringUpdate = true
24437                         i = (i + 1)
24438                     Loop
24439                 End If
24440             End Try
24441             Return result
24442         End Function
24443         
24444         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24445          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24446         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
24447             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
24448         End Sub
24449         
24450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24452         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
24453             If (Not (Me._connection) Is Nothing) Then
24454                 Return true
24455             End If
24456             If ((Me.Connection Is Nothing) _
24457                         OrElse (inputConnection Is Nothing)) Then
24458                 Return true
24459             End If
24460             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
24461                 Return true
24462             End If
24463             Return false
24464         End Function
24465         
24466         '''<summary>
24467         '''Update Order Option
24468         '''</summary>
24469         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24470         Public Enum UpdateOrderOption
24471             
24472             InsertUpdateDelete = 0
24473             
24474             UpdateInsertDelete = 1
24475         End Enum
24476         
24477         '''<summary>
24478         '''Used to sort self-referenced table's rows
24479         '''</summary>
24480         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24481         Private Class SelfReferenceComparer
24482             Inherits Object
24483             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
24484             
24485             Private _relation As Global.System.Data.DataRelation
24486             
24487             Private _childFirst As Integer
24488             
24489             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24490              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24491             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
24492                 MyBase.New
24493                 Me._relation = relation
24494                 If childFirst Then
24495                     Me._childFirst = -1
24496                 Else
24497                     Me._childFirst = 1
24498                 End If
24499             End Sub
24500             
24501             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24502              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24503             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
24504                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
24505                 Dim root As Global.System.Data.DataRow = row
24506                 distance = 0
24507
24508                 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
24509                 traversedRows(row) = row
24510
24511                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
24512
24513                 Do While ((Not (parent) Is Nothing) _
24514                             AndAlso (traversedRows.ContainsKey(parent) = false))
24515                     distance = (distance + 1)
24516                     root = parent
24517                     traversedRows(parent) = parent
24518                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
24519
24520                 Loop
24521
24522                 If (distance = 0) Then
24523                     traversedRows.Clear
24524                     traversedRows(row) = row
24525                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
24526
24527                     Do While ((Not (parent) Is Nothing) _
24528                                 AndAlso (traversedRows.ContainsKey(parent) = false))
24529                         distance = (distance + 1)
24530                         root = parent
24531                         traversedRows(parent) = parent
24532                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
24533
24534                     Loop
24535                 End If
24536
24537                 Return root
24538             End Function
24539             
24540             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24541              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24542             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
24543                 If Object.ReferenceEquals(row1, row2) Then
24544                     Return 0
24545                 End If
24546                 If (row1 Is Nothing) Then
24547                     Return -1
24548                 End If
24549                 If (row2 Is Nothing) Then
24550                     Return 1
24551                 End If
24552
24553                 Dim distance1 As Integer = 0
24554                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
24555
24556                 Dim distance2 As Integer = 0
24557                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
24558
24559                 If Object.ReferenceEquals(root1, root2) Then
24560                     Return (Me._childFirst * distance1.CompareTo(distance2))
24561                 Else
24562                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
24563                                     AndAlso (Not (root2.Table) Is Nothing)))
24564                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
24565                         Return -1
24566                     Else
24567                         Return 1
24568                     End If
24569                 End If
24570             End Function
24571         End Class
24572     End Class
24573 End Namespace


Web, Tìm kết quả nhanh

Kích thước hoặc độ phức tạp của bản gửi này, tác giả đã gửi nó dưới dạng tệp .zip để rút ngắn thời gian tải xuống của bạn. Sau khi tải xuống, bạn sẽ cần một chương trình như Winzip để giải nén nó.

Tất cả các tệp đều được codefly.vn quét mỗi ngày một lần để tìm vi-rút, nhưng vi-rút mới xuất hiện hàng ngày nên không có chương trình phòng ngừa nào có thể bắt được 100% chúng.

ĐỂ AN TOÀN CỦA CHÍNH BẠN, VUI LÒNG:

1. Quét lại các tệp đã tải xuống bằng trình kiểm tra vi-rút cá nhân của bạn trước khi sử dụng.

2. KHÔNG BAO GIỜ, chạy các tệp đã biên dịch (.exe's, .ocx's, .dll's, v.v.)--chỉ chạy code mà bạn đã xem ít nhất 1 lần.

Official Website:

https://www.techprofree.com/.....c-with-source-code/

Gõ tìm kiếm nhanh...



Dự án liên quan!

Cách tạo đồng hồ bấm giờ trong C#

66 lượt xem

Hệ thống quản lý hàng tồn kho sử dụng cơ sở dữ liệu VB.NET và MySQL với mã nguồn

67 lượt xem

Đếm nguyên âm và phụ âm

110 lượt xem

Phần mềm quản lý nhân viên hiện đại sử dụng C#.net và Bunifu Framework với Full Source Code (2020)

170 lượt xem

Hệ thống quản lý đại học bằng C# với mã nguồn đầy đủ

134 lượt xem

Hệ thống quản lý bệnh viện bằng C# với mã nguồn đầy đủ

152 lượt xem